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FOREWORD 

The research described herein, which was conducted by the General 
Electric Flight Propulsion Division, was performed under NASA Contract 
NAS 3-7262. The work was done under the technical management of 
Mr. Edward L. Warren, Airbreathing Engines Division, NASA -Lewis Research 
Center, with Mr. Arthur J. Glassman, Fluid System Components Division, 
NASA-Lewis Research Center, as research consultant. The report was orig- 
inally issued as General Electric Document R66FPD258, March 1966. 
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ANALYTICAL PROCEDURE AND COMPUTER PROGRAM FOR DETERMINING 
THE OFF -DESIGN PERFORMANCE OF AXIAL FLOW TURBINES 


by E. E. Flagg 
General Electric Company 

1.0 SUMMARY 

A method of analyzing the off-design performance of multi-stage axial-flow 
turbines is presented with appropriate analytical procedures and computer techni- 
ques. Use of the method is demonstrated by calculating a performance map on a 
turbine design of known performance provided by NASA Lewis Research Center, 

The analysis is applicable to turbines having any number of stages up through 
eight (8). It allows for a change in mean-section radius between blade rows, and 
includes provisions for radial variation in loss and flow conditions. The radial 
variation in loss and flow conditions is calculated at up to six (6) radial posi- 
tions at the radial center of fixed area sectors. Each sector is a quasi-one- 
dimensional element and the radial centers are joined utilizing simple radial 
equilibrium at the stator exit and the rotor exit. Semi-perfect gas properties 
are assumed with variable specific heat at constant pressure and variable specific 
heat ratio. Gas properties may be input, and in addition, provision is made to 
incorporate gas properties as a function of temperature. Geometry may be input as 
passage distributed area or vector flow angle. Two options to incorporate loss 
are provided in an expansion kinetic energy coefficient -inlet recovery coefficient 
method, and a total pressure loss coefficient method. The analysis is applicable 
from zero (0) speed to high speed, and the work done may be negative to the maximum 
work condition limited by discharge annulus area choking, 

A complete listing of the computer program written in Fortran IV language is 
included with a discussion of all numerical techniques used in the analysis, a 
detailed logic flow diagram for the program, and a symbol list equivalencing the 
analysis equation variables to the Fortran variables. The computer program was 
demonstrated by calculating the performance map of a turbine of known performance. 
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Loss definition parameters and optimum incidence angle were selected to produce a 
calculated performance map with 94 percent peak rating efficiency at 120 percent 
design equivalent rotor speed. Blade row flow coefficients were selected to pro- 
duce an equivalent flow function reduction with speed at high over-all rating total 
pressure ratios. This map is presented along with sample input and output. 

2,0 INTRODUCTION 

Investigations of advanced air breathing propulsion engines have indicated 
the need for wide thrust modulating capability with minimum SFC over a broad range 
of subeonic and supersonic flight conditions. This capability will allow mission 
cruise operation at reduced power settings and, by virtue of increased maximum thru? 
will reduce the number of size of engines required. 

Current propulsion systems are limited by their inherent inability to ade- 
quately adjust the engine cycle to the desired thrust level while maintaining 
minimum SFC. Propulsion systems with variable geometry, however, can obtain the 
desired cycle flexibility through variation in the basic aerodynamics of the engine. 
Turbine stator area variation appears to offer very good potential. With the abilit 
to vary turbine stator area, it is possible to adjust the cycle pressure ratio, air 
flow and/or turbine inlet temperature to approach more optimum conditions. The 
achievement of optimum aerodynamic design of the turbine will depend upon a know- 
ledge of the change in overall and internal performance as a function of the re- 
quirement '’.variations , Therefore, a turbine performance prediction method is needed 
to assess the penalties associated with off-design performance and evolve design 
modifications to minimize these penalties. 

The General Electric Company has initiated and developed a number of computer 
programs for predicting the off-design performance of multi-stage axial flow turbine 
The Large Steam Turbine Department, the Gas Turbine Department, and the Flight Pro- 
pulsion Division have contributed to the present state-of-the-art in turbine off- 
design performance prediction. Programs have been written and successfully operatec 
on the IBM 701, 650, 704, 7090, and 7094 computers as well as the GE 625 computer. 
Programs have been written ip machine language, SOAP, in CAGE (Compiler and Assembl; 
Program, General Electric), in Fortran II and Fortran IV language as modified by 
General Electric computer operational techniques. This program takes maximum advan 
tage of the knowledge and experience previously acquired to develop an analytical 
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method and tool using a sophisticated and complex computer program system to advance 
turbine technology for future airbreathing propulsion systems as well as Other gas 
turbine systems, 

3°0 DEVELOPMENT OF ANALYSIS PROCEDURE 

3,1 Objective - The turbine is one of the principal components of the air- 
craft jet engine. In the case of most turbomachinery, the turbine is designed 
for a single operating condition (one discrete speed, pressure ratio, etc.) 
called the "design point". When operating at this design point condition, the 
turbine (with its fixed dimensions, blade angles, number of stages, etc.) will 
deliver the design point performance specifications (power, efficiency, etc.). 

The aero-thermodynamicist predicts the turbine's design point characteris- 
tics by computing overall performance (weight flow, efficiency, work output, 
etc.) as well as more detailed interstage performance characteristics (velocity 
diagram quantities, state conditions, flow angles, etc.). 

Within an aircraft jet engine, however, the turbine is required to perform 
at many conditions other than "design point". Its performance can be varied by 
adjusting the speed and/or pressure ratio, variable geometry stators, and other 
parameters. Under these different running conditions, the turbine is said to be 
operating "off-design". To completely predict the turbine's characteristics, 
the aero-thermodynamic designer must not only compute the single design-point per- 
formance but also the off-design performance over a wide range of operating 
conditions. The off-design performance is computed by varying one parameter (at 
a time) and repeating the same overall and interstage calculations used for the 
design. Each off-design point is plotted, thus generating a complete off-design 
predicted performance map. In addition to the overall performance characteristics 
in terms of equivalent work, equivalent weight flow parameter, equivalent speed, 
pressure ratio and efficiency, the aero-thermodynamicist is also interested in 
interstage blading performance in terms of incidence angles, Mach numbers, diffu- 
sion parameters, reaction and leaving swirl. Since each calculation is basically 
a repetition of the others, the turbine off-design computation is ideally suited 
for solution on a high-speed, digital computer. 
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3.2 Assumptions 

3.2.1 Proportional Area Distribution. - For a pitchline type analysis, or 
a one (1) sector analysis, all of the flow must pass through a given area and there 
is no further assumption of flow per area necessary. When the quasi-one-dimensional 
procedure is extended to six (6) quasi-one-dimensional sectors, a decision must be 
made to perform the analysis and calculation on either a f low-stream-tube basis or 
an area basis. 

In calculating the performance of turbines away from the design point, the 
flow-stream-tubes will shift radially and adjust because of momentum, energy, con- 
tinuity and equilibrium conditions in each of the flow-stream-tubes. In addition, 
the radial distribution of static pressure between each of the flow-stream-tubes 
will adjust to maintain equilibrium. Thus, the flow per unit area is not neces- 
sarily a constant with radius as shown in Figure 1. 

If the decision is to use flow-stream-tubes as the basic calculation techni- 
que, an iterative procedure must be employed to adjust the area required to pass 
the flow in each stream-tube. General Electric experience with stream-tube procedure 
was -that many difficult problems must be circumvented in the vicinity of Mach one 
or choked flow condition in addition to the normal problems associated with itera- 
tion on continuity, momentum and energy. One example is if a high initial value 
of static pressure (or low axial velocity) is used to start the iteration, a large 
area is required to pass the flow of the outermost stream-tubes, and the flow in 
the inner stream-tube requires an area at smaller diameters than the root flowpath. 
For low radius-ratio turbines, negative diameters may be indicated by the iteration 
procedure which is an impossibility. Another example is if a low initial value of 
static pressure (or high axial velocity) is used to start the iteration, for a 
given total energy or total temperature level, a negative static temperature may be 
indicated by the iteration procedure. An alternate technique is to base the basic 
calculation on a proportional area basis. 

If proportional area distribution is used throughout the turbine, it can be 
seen in Figure 1 that a different quantity of flow may enter the upstream cross- 
section area as will leave the downstream cross-section because of the flow that 
enters and leaves the conic surface area between the calculation stations. Since 
the equations of motion as applied to turbomachinery are, strictly speaking, valid 
along axi asymmetric stream-tubes, the assumption of fixed proportional area sectors 
introduces a small error in the momentum equation and the energy equation. To test 
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the assumption of fixed area sectors, three test cases were calculated as five (5) 
one-dimensional sectors as shown in Figure 2. 

One test case had equal sector heights at the stator exit station and the 
rotor exit station. One case had a large stator tip sector (small stator root 
sector), and the rotor exit had equal heights. Thus streamlines enter the rotor 
at a lower radius and leave at a higher radius, and the tip sector has high weight 
flow and the root sector has low weight flow. The alternate test case had a large 
stator root sector height (small stator tip sector height), streamlines enter the 
rotor at a high radius, leave at a lower radius, the tip sector has lower weight 
flow, and the root sector has higher weight flow. The stator angles were adjusted 
as a function of radius to simulate a free vortex design distribution. An impor- 
tant result of these three test cases is shown in Figure 3. As the stator sectors 
were adjusted radially 2% in station height (+ 10% in tip and root sector height), 
no change was observed in the energy function Ah/T as stage pressure ratio was 
varied . 

In order to evaluate the procedure for a non-free vortex design distribution, 
two additional test cases were completed with the stator pitchline flow angle held 
constant as the sectors were adjusted radially. The result shown in Figure 4 was 
a change in work output. A 2% shift in station height (+10% in tip and root 
sector height) produced a 2% change in energy function Ah/T as stage pressure 
ratio was varied. From the manner the calculation was performed, the test cases 
were for a very non-free-vortex type distribution. 

3.2.2 Radial Height Center. - Once the framework is set up on area sectors, 
it must be determined whether to calculate at the area centers of the proportional 
area sectors, at the root mean square diameter of the area sectors, or at the 
radial height center of the area sectors. 

The use of equal area centers has long been a practice of installing instru- 
mentation. It is based on an approximation to equal flow tubes. Therefore, an 
approximation to a mass flow weighted condition is an area weighted condition 
which is a simple average of data taken at equal area centers. In many flow 
situations the radial distribution of flow per unit area is a significant variable’, 
particularly at the turbine stator exit and generally true in compressors. Since 
the mass flow is calculated in each of the six (6) area sectors, the difference 
between area centers or centers of equal station height should be small and only 
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a matter of convenience in setting up the calculation procedure. The diameter of 
the calculation sector areas used as the radial height center are: 
for i = 1 

D Pl,k ■ Dr k + '5 * FCNH 1 * < Dt k * V 

for i = 2, 3, 4, 5, 6 

Dp = Dp + (.5 * PCNH. + .5 * PCNH.) * (Dt - Dr ) 

r i,k i-l,k l-l i k k. 

3.2.3 Radial Variation Method. - Several methods are available to obtain a 
quasi -one -dimensional solution to the turbine interstage flow conditions. The 
primary consideration of this program was to get an analytical expression to be 
iterated and integrated and avoid step-by-step calculations in radius with numeri- 
cal integration methods. The most simple procedure is to assume a simple one- 
dimensional compressible flow in each of the sectors. That is to say that all 
total conditions as well as static conditions and velocities are constant throughout 
the sector. Then the sectors can be joined radially utilizing simple radial 
equilibrium to determine the radial pressure distribution at the sector centers. 
Many test data reduction systems have used this procedure. If ultimate objectives 
were to reduce test data with one-dimensional flow assumed in each sector , in 
order to determine the test loss definition parameters, then the off-design pre- 
diction procedure should be a compatible method. The error involved will tend to 
be smaller as the number of sectors is increased from one (1) to six (6). In 
addition, many times the actual test results are significantly different from the 
predicted performance due to deviation angle differences -or flow coefficient dif- 
ferences due to local separation or tip-clearance boundary- layer interaction or 
secondary-flow boundary-layer centrifugation. 

An extension to one-dimensional area segments are free-vortex area segments. 

It is then assumed that total pressure, total temperature and axial velocity are 
constant throughout each area sector, and the static conditions and tangential 
component of velocity vary as. a free vortex. The six (,6) radial sectors are then 
joined utilizing simple radial equilibrium. For a free-vortex turbine design, (of 
which there are many), the off-design performance result at the design operation 
condition is identical to the design case, 

A third method which was evaluated was previously applied to a compressor 
analysis, A radial derivative form of the dynamics relations was obtained as a 
function of known geometry and the axial component of Mach number. This non-linear 
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function was then calculated at three (3) radial positions and curve fitr.as a 
polynomial in radius. The radial derivative form of the dynamics relations was 
then known as a polynomial in radius and integrated in closed form to yield the 
radial distribution in static pressure. In addition, the energy equation and 
geometry provide a relationship between static pressure, total pressure, Mach 
number and axial component of Mach number such that at the selected axial com- 
ponent of Mach number, and geometry, the energy equation would yield a static 
pressure which is different from the static pressure that satisfies the momentum 
equation. The Mach number was then adjusted to find a static pressure that was 
common to both. The result was an analytic continuously varying total pressure 
profile, total temperature profile and velocity profile. 

It was assumed that total pressure, total temperature and axial Velocity are 
constant throughout each area sector] and for energy and momentum considerations, 
the static conditions and tangential velocity vary as a free-vortex. The six (6) 
radial area sectors are then joined utilizing simple radial equilibrium. 

P 2 

dPs = ! s Vu 

dr g r 

3.2.4 ContTnurty Integration. - In conjunction with a radial distribution of 
total temperature and total pressure to satisfy the energy and momentum conditions, 
the integrated total flow in each of the segments must add up to the total flow. 
Again the primary consideration is to get an analytic expression, avoid step-by-- 
step numerical integration methods, and be compatible with the energy and momentum 
equations. The most simple procedure is to assume a simple one-dimensional com- 
pressible flow in each of the sectors. Then the specific mass flow calculated at 
the center of each of the sectors is considered to be constant throughout each of 
the sectors. 

An extension to the simple one-dimensional area segments is free-vortex area 
segments. Although the axial component of velocity is constant, the density varies 
with radius, and the continuity integration with radius is longer than the simple 
one-dimensional flow in each sector. 

A third system evaluated was used in conjunction with the curve fit of -the 
dynamics equations with radius. The continuity equation was derived as a 
function of axial Mach number, Mach number and radius. The integrand was evaluated 
at three radial locations and curve fit as a polynomial in radius. The flow in 
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any sector was then analytically determined as a function of an estimated axial 
Mach number, and the total flow of all the sectors determined* It was the purpose 
of the continuity convergence procedure to estimate the axial Mach number level, 
determine the radial distribution with the dynamics curve fit, satisfy the energy 
equation, integrate the mass flow with a continuity curve fit, then adjust the 
initial axial Mach number and repeat until the mass flow error is less than some 
tolerance . 

It was assumed that total pressure, total temperature and axial velocity are 
constant throughout each area sector; and for continuity considerations, the 
specific mass flow was considered to be constant throughout each of the sectors, 
even though the dynamics was assumed to be free vortex in each radial segment. 

This small error introduced in continuity is often ignored even when applied to 
the entire flowpath. It is normally smaller than the uncertainty of the boundary 
layer displacement thickness, and the streamtube slope and curvature effects on 
flow distributions. When applied to the sectors of the flowpath, the error is 
reduced. 

3,2,5 Loss Definition, - In the development of an analysis procedure for 
the off-design performance of an axial flow turbine, the loss assumption method 
is usually associated with the aero-thermodynamicist s ' experience and the test 
evidence to support the loss method. The objective of the various loss definition 
methods is to provide for a loss in total pressure as normalized by some suitable 
normalizing procedure which correlates well with the experimental evidence. 

The use of blade row energy efficiency coefficient for the expansion process 
has long been a standard practice of turbine designers. 

By definition, 

Actual exit kinetic energy 

Theoretical exit kinetic energy 

Ho - h L = (V 1 ) 2 /2 Ho 

Ho - hi . 1 - hi . /Ho 

J-i i i 

(V 1 ) 2 /2Ho 

1 -y — 1 

i - (Ps n /Pt y 
1 o 

(See Figure 1 for station designation) 


Stator - 

= 
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In a similar manner, the efficiency of the blade profiles for the expansion 
process in a rotating row is defined as: 


Rotor - 



Relative exit kinetic energy 

Theoretical exit relative kinetic energy 


Hr 


1A 


Hr 


1A 



<V 2/2Hr 1A 

1 - h 2 ./Hr 


1A 


(R 2 ) 2 /2Hr 1A 
1 - (Ps 2 /Ptr la 



(NOTE: The above values are a function of radial sector and 

held constant during off-design calculation.) 

The incidence loss definition can be handled in several different manners. 
One such method employs an inlet total pressure recovery factor specified as an 
analytic function of incidence angle, defined by: 

Stator - 
Rotor - 

RR = 

(NOTE: The above values are a function of radial sector.) 

In some instances it has been assumed that for of f -incidence angle calculations, 
the flow velocity is composed of two components of velocity; one component in the 
direction of the inlet angle at the design condition and another component which 
is normal to the inlet angle at the design condition. It is then further assumed 
that the velocity component oriented at the design condition passes through the 



( Z£°) 

^Pso' 


- 1 




2 


o 
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turbine at the design loss level, and some fraction of the component of velocity 
normal to the design condition is lost. This type of design assumption leads to 
a definition of inlet recovery factor which is proportional to the cosine of the 
incidence angle raised to an exponent. 


Stator - 


^SR 


SR 


opt 


cos(I ) 
s 


exp 


Rotor - 


^RR = ^RR 0 ^ 


r 


cos(i ;fc ) 


exp 


From theoretical assumptions, if all the component of velocity normal to the 
design cnndition is lost, the exponent should be 2, 

In conjunction with the expansion coefficients and the inlet recovery fac- 
tor, a stage test factor has sometimes been employed in turbine design practice. 


Stage Test Factor - 

TF = Output energy 

Vector diagram energy 

The stage test factor has been used to represent the non-uniform work extraction 
due to blade end effects, or the average stage total enthalpy drop as compared 
with the pitchline vector diagram total enthalpy drop. 

Extensive volumes of turbine aerodynamic cascade test results from transonic 
cascade wind tunnels have not appeared in the open literature. Significant dif- 
ferences still exist between British wind tunnel data, Australian wind tunnel data 
and the United States NASA wind tunnel results. The largest set of information 
in the United States has appeared in NACA TN 3802 "Investigation of a Related 
Series of Turbine Blade Profiles in Cascade" by Dunavant and Erwin, This data is 
presented in terms of a wake drag coefficient which is the total pressure loss as 
normalized by the upstream dynamic pressure. At high reaction conditions, a large 
difference between the low entering velocity on which the coefficients are based 
and the high leaving velocity causes high drag and lift coefficients; but the ratio 
of lift divided by drag is relatively unaffected., 
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Perhaps a more convenient loss coefficient method is the loss in total 
pressure as normalized by the theoretical downstream dynamic pressure: 

_ Pt loss 

i Theoretical exit dynamic pressure 


Stator - 

A Pto - Pti 

(I) . — ± 

Pto - Psi 


Rotor - 



Ptri A - Ptrg 
Ptr lA - Ps 2 


This type of loss coefficient incorporates the expansion loss as well as the off- 
incidence angle loss and as such is described as an analytic function of of f-incidence 
position. 


Stator - for positive incidence 


^Si ^Sopt 


T Q 2 T 3 T 4 

1 + A, (T-^ ) + A 2 ( - - ■ ) + A,fc±S ) 


l'l, 


’range 

Stator - for negative incidence 


range 


3 Is 


(D c . = (Do 

Si s opt 


1 + A, ( 


Is ) 


Is 


^ + A 5^Is ^ + A 6^" 


range _[ 


Is 


4 Ts ' ‘"5 N Is ' ’ “6 "Is 

range range range 


Rotor - for positive incidence 


“Ri = “ R opt 


1 + b i ( IT £ — ) + B -<T - Ir - ) — ) 4 


range 

Rotor - for negative incidence 


2 Ir ' + -13 v Ir 

range range 


“Ri = ^opt 


1 + B/, ( Ip > 2 + B : ( Ir ) 3 + B fi (__Ir_) 4 


Ir 


range 


Ir 


range 


Ir 


range 
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3,2,6 Choked Flow - In order to evaluate the choked flow criteria, and 
perform the radial equilibrium calculation and continuity integration, six test 
cases were thoroughly analyzed, A list of the example test cases follows: 


lest Case 1. 
Test Case 2. 

Test Case 3. 

Test Case 4. 

Test Case 5. 

Test Case 6, 


Small stator area, equal sector height. 

Small stator area, free vortex stator sector angle, large 
stator tip sector height (small stator root sector height). 
Small stator area, free vortex stator sector angle, large 
stator root sector height (small stator tip sector height). 
Small stator area, constant stator sector angle, large 
stator tip sector height (small stator root sector height). 
Small stator area, constant stator sector angle, large 
stator root sector height (small stator tip sector height). 
Large stator area, equal sector height. 


Shown in Figure 5 are the results of the flow calculation in each sector as a 
function of the sector pressure ratio for Test Case 1, The solid lines indicate 
the flow through the respective sectors with two branches in the supersonic region: 
one branch for choked flow at the critical value, and the other branch for a 
supersonic flow decrease. The dashed lines indicate the radial distrioution of 
sector pitchline pressure ratio. The continuity integration was carried out along 
the dashed lines. 

Shown in Figure 6 are the results of the continuity integration across the 
five sectors using two different assumptions as compared with the simple one- 
dimensional flow procedure. For the simple one-dimensional flow calculation, the 
maximum flow through the selected test case was Wg = 190.11 #/ sec at a station 
pitchline pressure ratio of PtQ/Psj^ = 1.89, This condition was a reference for 
comparison of the five-sector calculation methods. 

For the first calculation method, it was assumed that the respective sec- 
tors reached a critical flow value which was then held constant as the sector 
pressure ratio increased, and the flow angle was over-expanded to increase the 
area. When the station pitchline pressure ratio was 1,89, the pitch sector was 
slightly critical at (PtQ/Ps 1 ) 3 l '~ yJ 1 . 89, the root sector was over-critical at 
(Pt 0 /Ps^) ^ i = 2 o 26, and the tip sector had not reached critical at a value of 
(Ptg/Psi^ i = 1,60. The integrated flow at this condition was 190,1 #/ sec. Thus, 
vhen the station pitchline pressure ratio was at a critical value, the integrated 
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flow using the constant flow with an over-expanded area method was 0.00% higher 

than the simple one-dimensional flow calculation. The maximum flow was not 

reached until the tip sector was critical. For this point the station pitchline 

pressure ratio and pitchline sector pressure ratio was critical at (PtQ/Ps^)^ 

2.1, and the the root sector was well over critical at (Pt n /Ps,) = 2.7. The 

' 0 1 1,1 

integrated flow at this maximum flow condition was 191.02 #/sec which was 0.48% 
higher than the simple one-dimensional flow calculation. 

In an alternate calculation method, it was assumed that the respective sec- 
tor flows decreased as the sector pressure ratio exceeded the critical value. 

When the station pitchline pressure ratio was 1.6, the root sector reached the 
critical value. As the station pitchline pressure ratio is increased to 1.89, 
the root and root-pitch sector flows are decreasing whereas the pitch, tip-pitch, 
and tip sector flows are increasing. The integrated flow at this condition was 
189.15 #/ sec which was .51% lower than the simple one-dimensional flow calculation. 
The maximum flow was calculated at a condition before the tip sector was critical 
where the decrease in flows in the root, root-pitch, and pitch sectors offset 
the increase in flows of the tip-pitch, and tip sectors. This maximum value was 
189.3 #/sec which was .43%, lower than the simple one-dimensional calculation. 

In comparing the two calculation methods at the stator exit station, the 
maximum flows as calculated from either method are + 0.5% from a simple one- 
dimensional flow method. Thus, proof of validity of a calculation procedure 
based on test evidence of measured flow will be difficult. The unknown flow 
coefficient could be in error by l/2%> to offset the difference in calculation 
methods . 

Shown in Figure 7 and Figure 8 are the rotor exit flow calculations for 
Test Case 1. Shown in Figure 7 are the results of >the rotor flow calculation in 
each sector as a function of the sector relative inlet total pressure to static 
pressure ratio. The solid lines indicate the flow through the respective sectors. 
Only one branch is shown because for the example selected the stator chokes first 
and limits the flow. The dashed lines indicate the radial distribution of sec- 
tor pitchline pressure ratio. Figure 8 indicates the total stage flow as a 
function of stage inlet total pressure to static pressure ratio. To test the 
effect of the assumption of fixed area sectors on the continuity integration, the 
three test cases as previously indicated in Figure 2 were evaluated from a flow 
continuity viewpoint. Results similar to Figures 5 through 8 were obtained, how- 
ever, no appreciable effect was observed on the stator station weight flow or 
the stage weight flow. 
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The selected method for station choke determination was that sectors with 
pressure ratio greater than the pitchline sector pressure ratio have supersonic 
flow decrease up to the maximum pitchline sector flow function. Thereafter the 
pitch sector and sectors with pressure ratio greater than the pitch sector have 
a constant flow function with effective area increase. Subsonic sectors have a 
weight flow increase after the pitch sector pressure ratio for maximum pitch sec- 
tor flow function up to local sector maximum flow function. Because of the sector 
efficiency term ^ s or^ r, the maximum flow function occurs at a pressure ratio 
slightly less than the sonic pressure ratio, 

3.2.7 Effective Area Relationship - The basic calculation procedure is 
based on the flow continuity calculation stations placed between the blade rows 
at the trailing edge. For subsonic pressure ratios, the effective flow angle 
is held constant at the input radial distribution, or the effective flow angle 
is calculated from the passage area with a flow coefficient applied to the throat 
and an annulus area change between the throat station and the exit station. The 
equation relationship between the passage area and the effective angle is: 
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Thus with the use of a flow coefficient and a velocity coefficient, it 
is assumed that the flow is isentropic to the throat, and the expansion loss 
occurs between the throat and the exit. There is no provision for an annulus 
blockage . 

3.2,8 Semi-Perfect Gas - The equations of motion, as utilized in the pro- 
gram, are based on a constant molecular weight. The energy absorbed does not 
account for any heat released due to composition change. Thus the gas constant 
RG is not a function of temperature or pressure. Provision is made to input 
the gas constant, or an option is provided to calculate the gas constant for 
mixtures of air, JP4 fuel and water vapor. 

RG = 53.35045 + (.658 * F air + 32.433 * W air ) j (1. + F air + W air ) 

Thus for F air = 0. and W a j[ r = 0., the standard value for dry air is obtained. 

The specific heat at constant pressure for a mixture of products of com- 
bustion of JP4 fuel in air can be determined as fallows 

Cpg “ (Cpa + Cpf * F aIr + Cpw * W alr ) / (1. + F air + W alr ) 

A polynomial curve fit versus temperature is provided for the specific heats 
as shown in the following table. 
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Cpa 


Cpf 


Cpw 


T(°R) 

100 

Value 

Curve 
F it 

Value 

Curve 

Fit 

Value 

Curve 

Fit 

.2392 

.2404 





200 

.2392 

.2391 





300 

.2392 

.2385 





400 

.2393 

.2386 

.3873 

.3877 

.4421 

.4418 

500 

.2396 

.2393 

.4330 

.4334 

.4439 

.4439 

600 

.2403 

.2405 

.4728 

.4722 

.4473 

.4477 

700 

.2416 

.2421 

.5064 

.5054 

.4527 

.4529 

800 

.2434 

.2442 

.5344 

.5341 

.4592 

.4593 

900 

.2458 

.2465 

.5591 

.5596 

.4667 

.4666 

1000 

.2486 

.2491 

.5819 

.5825 

.4448 

.4745 

1100 

.2516 

.2518 

.6031 

.6035 

.4833 

.4829 

1200 

.2547 

.2547 

.6230 

.6234 

.4920 

.4918 

1300 

.2579 

.2577 

.6422 

. 6424 

.5008 

.5008 

1400 

.2611 

.2606 

.6608 

.6608 

.5099 

,5101 

1500 

.2642 

.2636 

.6791 

.6788 

.5191 

.5194 

1600 

.2671 

.2665 

.6969 

.6966 

.5285 

.5288 

1700 

.2698 

.2693 

.7142 

.7140 

.5380 

.5382 

1800 

.2725 

.2720 

.7313 

.7311 

.5476 

.5476 

1900 

.2750 

.2746 

.7480 

.7477 

.5570 

.5569 

2000 

.2773 

.2771 

.7640 

.7638 

.5663 

.5661 

2100 

.2794 

.2794 

.7790 

.7793 

.5754 

.5752 

2200 

.2813 

.2815 

.7937 

.7941 

.5843 

.5842 

2300 

.2831 

.2835 

.8077 

.8081 

.5929 

.5929 

2400 

.2848 

.2853 

.8211 

.8214 

.6013 

.6014 

2600 

.2878 

. 2885 

.8459 

.8457 

.6172 

.6173 

2800 

.2905 

.2912 

.8678 

.8674 

.6318 

.6317 

3000 

.2929 

.2934 

.8867 

.8869 

.6450 

. 6450 

3200 

.2950 

.2952 





3400 

. 2969 

.2967 





3600 

.2986 

.2982 





3800 

.3001 

.2996 





4000 

.3015 

.3009 
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Cpa 

Curve 


T(°R) 

4200 

Value 

Fit 

.3029 

.3023 

4400 

.3041 

.3038 

4600 

.3052 

.3052 

4800 

.3063 

. 3066 

5000 

.3072 

.3078 

5200 

.3081 

.3088 

5400 

.3090 

.3095 

5600 

.3098 

.3099 

5800 

.3106 

.3102 

6000 

.3114 

.3106 

6200 

.3121 

.3115 

6400 

.3128 

.3136 



The specific heat ratio for the mixture can be determined as follows: 

7 g = (Cpg/(£pg - RG)) 

3.2.9 Conservation of Angular Momentum. - The basic calculation for the 
equations of momentum, continuity and energy are performed at the stator exit 
station and the rotor exit station. The calculation at the following rotor 
inlet station and stator inlet station is primarily to find the incidence angle 
and inlet Mach number for the loss calculation. Because of a possible shift 

in sector pitchline diameter due to the flow path slope between the blade row 

exit and the following blade row inlet, the tangential component of velocity 

is adjusted inversely proportional to diameter to conserve angular momentum. 

VulA = Vui * Dpi/DpiA 

Vu2A = Vu2 * Dp2/Dp2A 

3.2.10 Continuity Adjustment. - The axial component of velocity is adjusted 
for the annulus area change and density change between the blade row exit and 
the following blade row inlet as well as any weight flow injected between the 
stations. The continuity adjustment is the only allowance made for the injected 
weight flow. There is no provision for injection losses, temperature depression 
due to mixing, or energy extraction of the injected weight flow. 

Vz 1A = V2 1 * /VAa * A 1 /A 1A * Rw 8lA /Rwg l 

Vz 2A = Vz 2 * A'Aa * V A 2A * Rw « 2A /Rws 2 

3.2.11 Conservation of Relative Total Conditions. - As the gas flows from 
the rotor inlet to the rotor exit station, there may be a radial shift in pitch- 
line diameter, and in the relative coordinate system an additional work term 
appears due to the radial outflow or inflow. From the energy equation, the 
relative total temperature is adjusted proportional to the difference in wheel 
speed squared. 

Ttr 2 = Ttr u + [(U 2 ) 2 - (U 1A )5<2sJCp u ) 

The relative total pressure is isentropically adjusted for the relative total 
temperature change. yiA 

Ptr 2 = Ptr 1A * (Ttr 2 /Ttr 1A ) 7lA 1 * 

Thus, there is no loss associated with the relative total pressure change across 
the rotor due to radial flow shifts. 
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3.2.12 Profile Averaging - In order to provide an index of stage performance 
with a radial profile of total temperature and total pressure, stage exit average 
conditions P and T are determined based on a weighted average enthalpy and entropy 
from the radial sectors. The next stage inlet conditions may be taken as uniform 
at the average value, the radial sector profiles may be used, or a third option 
which keeps the total temperature profile and "smooths" the total pressure profile 
may be used. The next stage stator entrance loss is calculated from the previous 
swirl angle profile in all cases. 

The average total temperature at each stage exit is determined by a mass 
weighted average of each sector total temperature. 


T 


t 



itch 



T f- ( i )__ 
T 

t pitch 


The average total pressure at each stage exit is determined from a mass 
weighted average entropy of each sector. 


P t P tpitch * 6 


(power) 


where 


Power - S ^ * ^n 
M ^ 


t(i) 

t pitch__ 


+ 


m(i) 

M 




T t 


pitch 



For the third option which keeps the total temperature profile and "smooths" 
the total pressure profile, the pressure profile is obtained by setting the sec- 
tor entropy equal to the average entropy. 


t(i) 


= P ( 


< T t ( t)/v 


-1 


4.0 PREPARATION OF COMPUTER PROGRAM 

4.1 Objective - The digital computer has provided a valuable engineering 
analysis tool to determine the internal and overall performance of axial flow 
turbines. The specific objectives of Task II of this program are to prepare a 
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digital computer program to be written in, Fortran IV computer language com- 
patible with the Lewis Research Center IBM directly coupled 7094-44 computer. 

The analysis equations, flow charts of the subroutines, and a listing of the 
Fortran IV source program statements are included in this report as Appendices 
1, 2, and 3. 

4.2 Computer Program Organization - The analysis equations, flow charts of 
tne program, and a listing of the Fortran IV statements are presented in Appen- 
dices 1, 2, and 3. The program has been written as twenty- three (23) subroutines 
called in sequence by a main control program. The functions of the various sub- 
routines are as follows: 

NTCP - Main Calling Program 

This routine controls the flow of the program calling the input routine, com- 
puting stations, and output routines as needed. It increments the stage number 
and tests for the last stage of the turbine. When it finds the end of the turbine 
it calls for overall performance output and interstage performance output, tests 
for axial Mach number limit, pressure ratio increment, previous choke, modifies 
the proper upstream pressure ratio and resets the stage number, blade row number, 
etc,, to start over. 

INIT - Initialization 

The initialization routine calls the input routine, tests the stage loss indicator 
to store stage one (1) loss input data in fdllcrwing stages, sets up sector height, 
pitch diameter, annulus area, wheel speed, tests for angle input, converts angles 
to radians, and sets the index registers and forks. 

INPUT - Read Input 

The INPUT routine reads in basic input and stage input by "NAMELIST". Stage input 
is assigned to its proper location by comparison against the dummy word, BLANKS, 
to see if the element is input. 

STA01 - Station 0-1 (See Figure 1 for station designation.) 

This routine performs the calculations associated with the first stator entrance 
loss and establishes the turbine weight flow. FL0W1 is called for each sector flow. 

FL0W1 - Flow 1 

The FL0W1 routine calculates the flow in a stator exit sector. It is called by STA01 
or STA1 (depending on whether this is the first stage or not). Supersonic weight 
flow decrease for supercritical sectors up to pitch sector critical pressure ratio 
and constant supersonic weight flow function with cosQ!^ E correction after the 
pitch sector is critical are handled in this routine. 
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L0SS1 - Loss 1 


The L0SS1 routine computes stator efficiency from stator loss coefficient as a 
quadratic polynomial function of stator incidence angle. 

R - Gas Constant 

A number of thermodynamic subroutines are called, by those routines already des- 
cribed: Subroutine R is a simple routine fot the gas constant, for the products 

of combustion of JP4 fuel, and/or water vapor in* standard air. 

GAMMA - Specific Heat Ratio 

A simple routine for the specific heat ratio, for the products of combustion of 
JP4 fuel, and/or water vapor in Standard air. 

CPA - Constant Pressure Specific Heat, Air 
A simple seventh order polynomial curve fit of specific heat at constant pressure 
for air at low pressures. Limits (100 < °R < 6400). 

CPF - Constant Pressure Specific Heat, Fuel 
A simple seventh order polynomial curve fit of specific heat at constant pres- 
sure for burned JP4 fuel. Limits (400 °R < 3000). 

CPW - Constant Pressure Specific Heat, Water - A simple seventh order poly- 
nomial curve fit of specific heat at constant pressure for water vapor at low 
pressures. Limits (400 < °R < 3000). 

PRATIO - Pressure Ratio 

A routine to find the subsonic pressure ratio consistent with a flow function per 
unit area. A successive iteration technique is employed to solve the transcen- 
dental equation within a tolerance "Prtol". 

CHECK - Error Check 

A routine to test the sense lights and set Prever = .True, if a light was on. 

STA1A - Station 1A 

Routine STA1A computes the inlet flow conditions relative to the rotor and deter- 
mines the rotor inlet recovery as a function of rotor incidence angle. The 
tangential component of velocity is adjusted to conserve angular momentum and the 
axial momentum of velocity is adjusted for weight flow change, area change and 
density change from STA1. 

STA2 - Station 2 

This routine performs the rotor exit flow continuity integration, corrects total 
conditions for diameter change and checks for a choking condition. The check is 
performed by calling the LOOP subroutine. If no choke exists and the calculation 
is not on a choke iteration, the program proceeds to the next stage. If the wanted 
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flow is greater than the critical flow, the return from LOOP transfers control 
back to the main program to perform the necessary iteration. 

FLOW 2 - Flow 2 

A routine similar to FL0W1 to calculate the flow in a rotor exit sector for STA2. 
L0SS2 - Loss 2 

A routine similar to L0SS1 to compute rotor efficiency from rotor loss coefficient 
as a quadratic polynomial function of rotor incidence angle. 

LOOP - Lfedp Iteration 

Because of the complex logic for iteration to obtain the exact choke point and 
reducing the interval when a multiple choke occurs, a separate routine has been 
established to handle the bookkeeping. Routine LOOP is called from the rotor 
exit stations and the following stator exit stations. Eight possible conditions 
may arise during the calculation: (1) underflow, (2) no choke, (3) initial choke 

detection, (4) choke iteration now sub-critical, (5) choke iteration super-criti- 
cal again, (6) multiple choke, (7) choke iteration complete, (8) supersonic. 

STA2A - Station 2A 

This routine computes the inlet flow conditions to all stators after the first 
and computes stator inlet recovery as a function of stator incidence angle. Stage 
exit average conditions Tt and Pt are determined based on an average weighted 
entropy. Three options for an entrance profile are available. Conservation of 
angular momentum and continuity are similar to STA1A, 

STA1 - Station 1 

For other than ‘the first stator, this routine is used to compute stator exit flow 
continuity and check for a choking condition. Operation is similar to STA2. 

OVRALL - Overall Performance 

A routine to compute overall performance output and some key hub and casing values. 
INSTG - Interstage Performance 

A routine to compute each blade row interstage performance output. For three sec- 
tors or less, hub and casing values are also computed based on free-vortex 
distribution . 

WOUT - Write-out 

A routine to write out the interstage performance data from INSTG. 

DIAGT - Diagnostic 

A routine to diagnose some key parameters when an error in encountered. 

PHIM - Phi Maximum 

A routine to find the pressure ratio at the maximum flow function per unit area. 
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4.3 Input - The NAME heading card and TITLE heading card are transmitted 
as a BCD record by the general I/O statement: 

READ (i,n)list 

where i = 5 

n = Format number 

list = 60 character alphameric field 

The two heading cards are read for each case. 

The stage input is read in via: 

N AMEL 1ST /DATAIN / 

which is referenced by a READ statement. The input data must meet the specifi- 
cations of the NAMELIST statement format. 

One block of memory to hold one stage of data is set to the dummy word, 
BLANKS, before each stage is read. Each stage is headed by $ DATAIN, starting 
in column (2). After each stage is read in, the elements are compared against 
BLANKS to see if the element is input. If the element is BLANKS, the element is 
set to 0.0 for input printout. If the element is not BLANKS, the proper number 
stage value is set to the element via an EQUIVALENCE system. Data input in a 
previous case remains in memory for succeeding change cases until it is altered 
with a new input element. 

4.3,1 Options 

A. Type Case - Two type input cases are available. 

Basic input case, Stgch = 1.0 

Change type case, Stgch = 0.0 

If an input error occurs in a basic type case, change type cases will be skipped 
until the next basic type case is reached. 

B. Gas Properties - The gas constant RG and the specific heat ratio GAMG may be 
input or calculated by the program. RG is tested to set the fork yF . 

C. Flow Area - Geometry may be input as a passage distributed area or the vector 
flow angle. SDEA (1) of stage 1 is tested for the stator and RDEA (1) of stage 1 
is tested for the rotor. 
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D. Loss Method - Two options to incorporate loss are provided in an expansion 
kinetic ene.rgy coefficient-inlet recovery coefficient method, and a total pres- 
sure loss coefficient method. STPLC (1) of stage 1 is tested for the stator and 
RTPLC (1) of stage 1 is tested for the rotor. 

E. Stage Loss Indicator - An indicator SLI is tested to store stage one (1) 
efficiency, recovery, flow coefficient, and test factor in following stages if 
they are to be constant throughout the turbine. 

F. Profile Averaging - A fork PAF is tested to set the next stage inlet value as 
follows: 


0 - uniform average profile 

1 - use exit leaving profile 

2 - smooth pressure profile 
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4.3*2 Input Sheet. 


turbine computer program 

STANDARD OPTION 
INPUT SHEET 


START ALL INPUT CARDS IN COLUMN 2 


NAME UL 

titled) 

SDATAIN ST AGE = 
STGCH= 

T T I N = 

PTPS = 

STG = 

RG = 

RPM = 

9 

9 

,PTIN= 
♦ DELC= 
,SECT= 
> PAF - 
,VCTD= 

9 W A I R = 
»DELL= 

» EXPN = 

» SL I 

9 E ND JOB = 

» FA I R = 

, DE LA = 

* EX PP = 

> AACS = 

9 ENDSTG= 



INLET RADIAL PROFILE 


PCNH = 

9 

9 9 

9 

STA. 0 

STA. 1 

AXIAL STATIONS 
STA.1A STA. 2 

STA. 2 A 


* 


GAMG = 

DR = 

DT = 

RWG = 

STATOR RADIAL DISTRIBUTIONS 
ROOT PITCH TIP ( FOR THREE SECTORS) 



SDIA= * » 

SDEA= > » 

SREC= » * 

SET A= * ’ 

SCF = * * 

SPA= * > 

SESTH= * 


ROOT 


RD I A= * 

RDEA= 9 

RREC = ♦ 

RETA= 9 

RCF = * 

R P A “ * 

RTF= 9 

RERTH= * 


ROTOR RADIAL DISTRI 
PITCH TIP 

* » 

* 9 

9 9 

9 9 

9 9 

9 9 

9 9 


IONS 

(FOR THREE SECTORS) 

9 

9 

9 

9 

9 

9 

9 


END J0B= 
ENDSTG= 


$ 


END JOB= 1 • 0 IF LAST CASE 
ENDSTG-1.0 IF LAST STAGE 


25 



TURBINE COMPUTER PROGRAM 
LOSS COEFFICIENT OPTION 


USE THIS SHEET TO SUPPLEMENT NORMAL STAGE INPUT SHEET 


START ALL INPUT CARDS IN COLUMN 2 



REPLACE 

SREC AND 

SETA 

CARDS 

WITH 

FOLLOWING 9 

CARDS 


ROOT 

PITCH 


TIP 


(FOR THREE 

SECTORS 

STPLC= 

* 


» 


9 

9 

» 

S I NR = 

9 


9 


9 


» 

S INMX = 

9 


9 


9 

9 

9 

SCPS = 

9 


9 


9 

9 

9 

SCPC- 

9 


* 


9 

9 

9 

SCPQ = 

9 


♦ 


9 

9 

9 

S C N S = 

9 


9 


9 

9 

9 

SCNC = 

9 


9 


9 

9 

9 

SCNQ = 

9 


9 


9 

9 

9 


REPLACE 

RREC AND 

RETA 

CARDS 

WITH 

FOLLOWING 9 

CARDS 


ROOT 

P I TCH 


T I P 


(FOR THREE 

SECTORS 

RTPLC= 

9 


9 


9 

9 

» 

R I NR = 

9 


9 


9 

9 

9 

RINMX= 

♦ 


9 


9 

♦ 

9 

RCPS = 

9 




9 

9 

9 

RCPC = 

9 


9 


9 

9 

9 

RCPQ = 

9 


9 


9 

9 

9 

RCNS = 

9 


9 


9 

9 

9 

RCNC = 

9 




9 

9 

9 

RCNQ^ 

9 


9 


9 

9 

» 
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4 .3.3 - Input Nomenclature 


NAME 0 60 character name and date card 

TITLE (I) 60 character title card 


SDAT A I N 

STAGE 

STGCH 

TTIN 

PTIN 

WAIR 

FAIR 

P TPS 

DELC 

DELL 

DELA 

STG 

SECT 

expn 

EXPP 

RG 

PAF 

SLI 

A ACS 

RPM 

VCTD 

ENDJOB 

ENDST6 


NAMELIST name 

Stage identification number 

Stage change (1-basic; 0-change case) 

Inlet total temperature (°R) 

Inlet total pressure (psia) 

Water/air ratio* 

(Omit with RG & GAMG input) 

Fuel/air ratio* 

Starting pitchline pressure ratio (PtQ/Ps^). 

Increment to first blade row choke 
Increment from first to last blade row choke 
Increment to annulus choke 
Number of stages ( 8 maximum ) 

Number of sectors ( 6 maximum ) 

Cosine exponent, negative incidence 
Cosine exponent, positive incidence 
Gas constant, ( f t . - lbs . /lb . °R ) 

Profile averaging fork (0-uniform; 1-profile; 2-smooth pressure) 
Stage loss indicator (0-stage data input; 1-all stages equal) 
Annulus area choke stop 
Speed (rpm) 

Vector diagram interstage output 
End of job 

End of stages for this case 
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PCNH 


GAMG 

DR 

DT 

RWG 

SDI A 

SDEA 

SREC 

SETA 

SCF 

SPA 

SESTH 

RDI A 

RDE A 

RREC 

RETA 

RCF 

RPA 

RTF 

RERTH 

ENDJOB 

ENDSTG 


Percent station height distribution 

Specific heat ratio ( 7 g) 

Diameter root (in.) 

Diameter tip (in.) 

Ratio of flow to inlet flow 

Stator design inlet angle (ao) ("reference from axial) 
Stator design exit angle (al) ("reference from axial) 
Stator recovery coefficient C^sr^) 

Stator efficiency coefficient (^s) 

Stator flow coefficient (Cfs) 

Stator passage area per unit height (n"do n , in. ^/in. ) 
Stator exit stator throat height ratio. 

Rotor design inlet angle (f31A) (“reference from axial) 
Rotor design exit angle 02) ("reference from axial) 
Rotor recovery coefficient, (l),rr j) 

Rotor efficiency coefficient C*|r) 

Rotor flow coefficient (Cfr) 

2 

Rotor passage area per unit height (n"do",in. /in.) 
Rotor test factor 

Rotor exit rotor throat height ratio. 

End of job. 

End of stages for this case. 
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STPLC 

S I NR 

SINMX 

5 CPS 

SCPC 

SCPQ 

SCNS 

SCNC 

SCNO 


Stator optimum total pressure loss coefficient 
Stator incidence range 
Stator incidence maximum value 
Stator coefficient positive square term 
Stator coefficient positive cubic term 
Stator coefficient positive quartic term 
Stator coefficient negative square term 
Stator coefficient negative cubic term 
Stator coefficient negative quartic term 


RTPLC 

R I NR 

RINMX 

RCPS 

RCPC 

RCPQ 

RCNS 

RCNC 

RCNQ 


Rotor optimum total pressure loss coefficient 

Rotor incidence range 

Rotor incidence maximum value 

Rotor coefficient positive square term 

Rotor coefficient positive cubic term 

Rotor coefficient positive quartic term. 

Rotor coefficient negative square term 
Rotor coefficient negative cubic term 
Rotor coefficient negative quartic term. 


29 



4.4 Overall Performance, Output. The results of each case of data are .precede 
by a listing of the input used for that case. For a change type case in Which moe 
of the input data is a carry-over from the previous basic input case, only the inp 
for that case is printed. Carry-over input from the previous basic input appears 
as zero. The output is headed with a program title and two lines of NAME and TITI 
identification which were entered with the input. The output will be listed as 
fixed-point decimal with each line identified at the left. There will be as many 
columns of output as there are stages computed. The turbine overall values are it 
vidually identified at the bottom of the stage answers. 


4.4.1 - Overall Performance Nomenclature 

turbine computer program 

NAME 

TITLE 

CASE I* SUBCASE IS 

STAGE PERFORMANCE 

STAGE 1 STAGE 2 STAGE 3 STAGE 4 


TT 0 

Stage 

inlet total temperature (°R). 

PT 0 

Stage 

inlet total pressure (psia) 

WG 0 

Stage 

inlet weight flow (lbs/sec.) 

DEL H 

Stage 

energy output (BTU/lbs) 

WRT/P 

Stage 

corrected weight flow function 

DH/T 

Stage 

energy function 

N/RT 

Stage 

corrected speed 

ETA TT 

Stage 

total to total efficiency 
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ETA TS 
ETA AT 
PT0/PS1 
PTO/PT2 
PTO/PS2 
PTR1A/PS2 
TT2/TTO 
TTR1/TTO 
PS 1 
TTR 1 
PTR 1 
PS 2 
TT 2 
PT 2 
UP/VI 
UR/VI 
PSI P 
PS I R 
RX P 
RX R 
ALPHA 0 
I STATOR 
BETA 1A 
I ROTOR 
ALPHA 2 
DBETA R 


Stage total to static efficiency 
Stage total to axial total efficiency 
Stage stator pitchline pressure ratio 
Stage total pitchline pressure ratio 
Stage total-static pitchline pressure ratio 
Stage rotor pitchline pressure ratio 
Stage total pitchline temperature ratio 

Stage rotor inlet pitchline relative total temperature ratio 
Rotor inlet pitchline pressure (psia) 

Rotor inlet pitchline relative total temperature (°R) 

Rotor inlet pitchline relative total pressure (psia) 

Stage exit pitchline static pressure (psia) 

Stage exit pitchline total temperature (°R) 

Stage exit pitchline total pressure (psia) 

Pitchline wheel speed to isentropic velocity ratio. 

Root wheel speed to isentropic velocity ratio 

Pitchline kinetic energy loading parameter 

Root kinetic energy loading parameter 

Pitchline reaction ratio 

Root reaction ratio 

Stator inlet gas angle 

Stator inlet incidence angle 

Rotor inlet gas angle 

Rotor inlet incidence angle 

Stage leaving swirl angle 

Rotor root turning angle 
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M 1 
Ml RT 
MR 1A 
MR 1 A RT 
MR 2 
MR2 TIP 
E/TH CR 
N/RTH CR 
WRTHCRE/D 


Stator exit pitchline Mach number 
Stator exit root Mach number 
Rotor inlet pitchline relative Mach number 
Rotor inlet root relative Mach number 
Rotor exit pitchline relative Mach number 
Rotor exit tip relative Mach number 

Stage equivalent energy, corrected to standard inlet critical velo 
Stage equivalent speed, corrected to standard inlet critical veloci 
Stage equivalent flow, corrected to standard inlet critical velocit 


PS I P 
PS I R 
DEL H 
WRT/P 
N/RT 
DELH/T 
PT0/PT2 
PT0/PS2 
PT/PAT2 
ETA TT 
ETA TS 
ETA TAT 
WNE/60D 
N/RTH CR 
E/TH CR 


OVRALL PERFORMANCE 

Overall pitchline kinetic energy loading parameter 
Overall root kinetic energy loading parameter 
Overall energy output (BTU/lb.) 

Inlet corrected weight flow function 
Inlet corrected speed 
Overall energy function 
Overall total pressure ratio 
Overall total static pressure ratio 
Overall total to axial total pressure ratio 
Overall total to total efficiency 
Overall total to static efficiency 
Overall total to axial total efficiency 
Inlet equivalent flow speed parameter 
Inlet equivalent speed 
Overall equivalent energy 
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4,5 Interstage Performance Output, The interstage performance output is 
obtained when VCTD = 1.0. Because of the large volume of output, it is not generally 
recommended when DELC, DELL, and DELA are non- zero in the course of generating an en- 
tire turbine map. It is generally useful for obtaining detailed output at specific 
operating points. One page of output is obtained for each blade row in the turbine. 
Detailed radial distribution of vector diagram conditions as well as state properties 
and loading as expressed by incompressible forms of Zweifel parameter and pressure 
coefficient normalized by exit conditions. 


4.5.1 ~ Interstage Performance Nomenclature. 

TURBINE COMPUTER PROGRAM 


NAME 

TITLE 


CASE I. SUBCASE IS 

INTER-STAGE PERFORMANCE 


STA 0 
DIAM 0 
TT 0 
PT 0 
ALPHA 0 
I STATOR 
V 0 
VU 0 
VZ 0 
TS 0 


STATOR INLET 

Diameter (in) 

Total Temperature (°R) 

Total Pressure (psia) 
Absolute Angle (°) 

Inaidence Angle (°) 

Velocity (ft/sec) 

Tangential Velocity (ft/sec) 
Axial Velocity (ft /sec) 
Static Temperature (°R) 
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PS 0 Static Pressure (psia) 

DENS 0 Static Density (lb/ft3) 

M 0 Mach Number 


STA 1 
DIAM 1 
ALPHA 1 
DEL A 

V 1 

V 1 

i 

VU 1 
VZ 1 
TS 1 
PS 1 
DENS 1 
M 1 
ZWI INC 
CP S 


STATOR EXIT 


Turning Angle (°) 


Zweifel Parameter, Incompressible 
Pressure Coefficient, Incompressible 
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TURBINE COMPUTER PROGRAM 


NAME 

TITLE 


CASE I. SUBCASE IS 

INTER-STAGE PERFORMANCE 


STA 1A 
DIAM 1A 
PTR 1A 
TTR 1A 
BETA 1A 
I ROTOR 
R 1A 
RU 1A 
U 1A 


ROTOR INLET 

Relative Total Pressure (psia) 
Relative Total Temperature (°R) 
Relative Angle (°) 

Incidence Angle (°) 

Relative Velocity (ft/sec) 

Relative Tangential Velocity (ft/sec) 
Wheel Velocity (ft/sec) 


STA 2 ROTOR EXIT 
DIAM 2 


BETA 2 


DBETA Turning Angle (°) 
R 2 
RU 2 


MR 2 


Relative Mach Number 


U 2 


35 




RX 

Reaction 


DELH 

Energy (BTU/lb) 


PS I 

P 

Energy Loading Parameter 

ETA 

TT 

Efficiency Total - 

Total 

ETA 

TS 

Total - 

Static 

ETA 

AT 

Total - 

Axial Total 

ZWI INC 



CP 

R 



PT 

2 A 



TT 

2 A 



V 

2 A 



vu 

2 A 



ALPHA 

2 A 



MF 

2 A 

Axial Mach Number 


VZ 

2 A 



TS 

2 A 



PS 

2 A 



DENS 

2 A 



M 

2 A 
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4.6 Techniques 

4,6.1 PRATIO - The subroutine PRATIO determines the pressure ratio which 
is consistent with a flow function per unit area. Since the relationship is a 
transcendental function of Mach number, a successive iteration is employed. 
From the compressible flow properties: 


Pt/Ps = (1. + 2 - 


2 . 


1 2 7 
- VC) 


- 1 


( 1 ) 


and 


wVr?/Pt A = m VrgTR 1 \j Tt/Ts (Pt/Ps) 


r 1 


( 2 ) 


solving (1) for M and substituting into (2) 


2_ 


y_- 1 


w 


-2: 


= \T2g7/R (r-iJ VCPt/Ps) 7 -l. V(Pt/Ps) 7 V( Pt/Ps) 7 


(3) 


or 


\/T?/Pt A \f(R/2g) [(r-l)/ 7 ]' = f(M) - 



y+1 

(Pt/Ps) 7 (4) 


Therefore: 

The function of Mach number calculated from the fight side of Equation (4) 
minus the function of Mach number calculated from the left side of Equation (4) 
approaches zero error as Pt/Ps approaches the correct answer. 

An upper limit is set at the critical value and a lower limit is set at 
unity. An average value is selected and Equation (4) is computed. If the error 
in the function is positive, Pt/Ps trial is too large, the upper limit is reduced 
to the previous trial value, a new average value is selected and Equation (4) 
is recomputed. If the error in the function is negative, Pt/Ps trial is too small, 
the lower limit is increased to the previous trial value, a new average value is 
selected and Equation (4) is recomputed. The iteration is complete when pressure 


ratio error 


Pt/Ps - Pt/PSprevious trial is l ess than tolerance Prtol. 
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4.6,2 PHIM - The subroutine PHIM determines the pressure ratio at which 
the flow function is a maximum including the efficiency of expansion g or 
R . This critical pressure ratio is then used for the supersonic overexpan- 
sion criteria. 

From the definitions: 


W) _ V 2 /2gJCpTt 
*S “ 1 - (1/0) 


The flow function per unit area becomes 


W \/Tt/PtA = 


\/ ( 2 g/R) 7 / ( 7 -I)* 


v •n (i - 1/0) 



(i 


^ - 1/0] > 


with a substitution of variables. 
Let 


X = ^(1 - 1/0) 

the derivative of flow function with respect to X evaluated at zero yields 

X = -B - \/ B 2 - 4 AC 1 j 2A 


where 



B = - ( 


y-1 


+ 



C = ^0/2 
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4.6.3 Station Continuity - The continuity of weight flow at a stator exit 
station and a rotor exit station is handled by a summation of sector flows. A 
starting value of the pitch sector pressure ratio is the one-dimensional value 
obtained from subroutine PRATIO. Simple radial equilibrium is then used to 
determine the pitchline pressure ratio of the adjacent sectors until the hub and 
tip sector weight flows are complete. The calculated total weight flow is com- 
pared with the desired weight flow and the error in weight flow is compared with 
a weight flow tolerance. The iteration to reduce the error to less than the 
tolerance is handled similar to PRATIO. A lower limit is set at unity and an 
upper limit is computed on each pass to produce critical flow in the low pressure 
ratio sector, based on the radial pressure gradient of the previous pass: 

Pt/Ps pitchline upper limit _ Pt/Ps previous pitchline 

Pt/Ps critical Pt/Ps previous limiting sector 

An average value is selected for the pitch sector pressure ratio and the total 
weight flow from all the sectors is computed. If the error in weight flow is 
positive, Pt/Ps trial is too large, the upper limit is reduced to the previous 
trial value, a new average value is selected and the total weight flow from all 
the sectors is recomputed. If the error in the weight flow is negative, Pt/Ps 
trial is too small, the lower limit is increased to the previous trial value, 
a new average value is selected and the total weight flow is recomputed. The 
iteration is complete when the error in weight flow |weight flow calculated - 
weight flow wanted] is less than tolerance Wtol. 

4.6.4 Forks and Indicators 

A . PRPC - Indicator for pressure ratio at pitchline, critical. Initialized 
at 0.0 in INIT, set at 1.0 in FL0W1 or FL0W2 when pitch sector first exceeds 
critical and is reset to critical, set at 2.0 in FL0W1 or FL0W2 after critical. 
Reset by STA1 or STA2 to 0.0 when pitch sector pressure ratio is less than 
critical. Main program saves PRPC in CS(K) or CR(K) and resets PRPC on next 
calculation. 

B . PREVER - Logical constant for previous error. Set .FALSE, at beginning of 
MAIN program. Set to .TRUE, by CHECK when a sense light is on. Set to .TRUE, 
by subroutines at known errors. Tested by MAIN to end case calculation. 
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C. MFSTOP - Axial Mach number limit set in STA2A at Mf2A pitchline /AACS . Thus, 

when AACS < 1.0, calculation can be stopped before annulus area choke is reached. 

D. JUMP - Fork set by LOOP to indicate whether subcritical path or supercritical 
path. Set at 0 in LOOP for no-choke or choke iteration complete. Set at 1 in 
LOOP for choke iteration. Tested in the MAIN program to go to next calculation 
station or go by on choke iteration. 

E. LOPIN - Fork set in MAIN program at entry to each calculation station to 
indicate previous calculation was previous upstream station (LOPIN =0), or a 
downstream station on a choke iteration (LOPIN = 1). Tested by STA1 and STA2 to 
bypass initial starting pressure ratio calculation and continuity iteration on 
station where choke previously occurred. 

F . SCRIT - Indicator set by FL0W1 or FL0W2 that station critical flow has been 
reached when the last sector exceeds critical. Initialized to 0.0 at beginning 
of STA01, STA2, and STA1 on each entry. Tested by LOOP for subcritical or super- 
critical branch. 

G. PTRN - Indicator that a negative sector pressure ratio has been reached due 
to the inlet total pressure profile and the exit static pressure profile. 

H . WTOL - Weight flow error tolerance used in STA2 and STA1. When the change 
in pressure ratio produces a pressure ratio error which is less than a pressure 
ratio tolerance PRTOL, however, the weight flow error is Still larger than the 
weight flow tolerance WTOL, a choked condition is assumed and a choke iteration 
is started. 

I . RHOTOL - Density error tolerance used in STA1A and STA2A to correct axial 
velocity. 

J . PRTOL - Pressure ratio tolerance used in PRATIO iteration and STA2 and STA1 
continuity iteration. Tested by LOOP for accuracy of choke point calculation. 

K. TRLOOP - Switch for an output trace of the LOOP iteration. The calculation 
station writes: 


Wgt 2 ,Wgt 2c ,Wg 2 (i = i, Isect),Pt/Ps 2 (i = l,Isect) 
(2 is replaced by 1 for station 1) 


Then LOOP writes: 

IBRC, LBRC , I SORR ,KN,LSTG,IPC,ISS, ICHOKE , JUMP , LBRC S , I SORR S , LSTGS 
SPTPS, Pt Q /Ps 1 , DELPR, DELL, SCRIT, LOPC 
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L. LSTG - Last stage completed. 

M. LBRC - Last blade row completed. 

N . IBRC - Index of present blade row counter. 

O . ICHOKE - Iteration on choke (0 - no choke). 

P. ISORR - Stator or rotor index (1 - stator, 2 - rotor). 

R. PTOPSI(IP,K) - Computed memory location of pitchline pressure ratio. Since 
PTRS2 follows PT0PI1 in memory order, the rotor pressure ratio can be obtained by 
an index on the stator pressure. 

S ♦ TRDIAG - Switch for an output trace of an intermediate calculation diagnostic. 

T. SC - Stator choke indicator. Set equal 1. when first stator is critical flow. 

U. RC - Not used. 

V . DELPR - Pressure ratio increment. Set to DELC by INIT, set to DELL by MAIN 
program after first stator has critical flow, set to DELL by LOOP when choke 
iteration is complete and DELA on last rotor. On initial choke detection and 
choke iteration: 


DELPR = 1/2 DELPR 


On multiple choke: 

DELPR =1/4 DELPR 

W. PASS - Indicator that one calculation has been completed. Tested by LOOP 
to reduce pressure ratio by DELPR = DELC if initial pressure ratio is over 
critical . 

X. IPC - Indicator for previous choke completed. Set by LOOP equal to IBRC on 
choke iteration completion. Tested by LOOP to determine multiple choke. Reset 
to zero by LOOP on multiple choke detection at reduced pressure ratio. 

Y . LOPC - LOOP counter. 

Z. ISS - Indicator for super-sonic pressure ratios. Set by LOOP to IBRC on 
choke iteration completion. Tested LOOP to find upstream station after flow is 
choked . 

4.7 Program Operation - The program was written in FORTRAN IV primarily 
for the IBM 7090/7094 IBSYS operating system - version 12. The system and the 
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object program do not exceed the capacity of core storage so that an "Overlay" 
is not required and no special tape units are called. 

4.7.1 Tape Unit Assignment 


A. Normal operation - 

no source. 


Logical 

IBSYS 


Unit 

Name 

Function 

01 

SYSUTl 

System Utility Unit 1 

02 

SYSUT2 

System Utility Unit 2 

03 

SYSUT3 

System Utility Unit 3 

04 

SYSUT4 

System Utility Unit 4 

05 

SYSIN1 

System Input Unit 

06 

SYS0U1 

System Output Unit 


SYSLBl 

ISBYS system and library 

B. Compiler Operation 

- source, deck. 



Above 

units and additional 


07 SYSPP1 System Peripheral Punch 


4.7.2 Loader Deck Names - The deck names were selected as four or less 
alphameric characters, rather than use the six characters subroutine name. 
Since the identification punched by the compiler in Column 73-80 is the first 
'four characters of the deck name, identification symbols were stripped from 
FL0W1, FL0W2, STA01, STA1A, and STA2A in the object deck when the subroutine 
name was used. 


5.0 ANALYSIS OF NASA REFERENCE TURBINE 

In order to demonstrate the use of the computer program the turbine 
performance map was calculated for the design of Reference 2. The turbine 
geometry as provided by Lewis Research Center are shown in the following table. 


42 



NASA REFERENCE TWO-STAGE TURBINE 


TTIN 

= 700°R 



nA/T 1 

= 60 — 120 

percent 

design (N = 5041 rpm) 

PTIN 

= 34.9 in. 

Hg 


STG 

= 2 



SECT 

= 5 



RG 

= 53.3 



PCNH 

= 2 2 

.2, .2, , 

.2 


STAGE 1 

GAMG I = 1.40, 1.40, 1.40, 1.40, 1.40 

DR 1 = 19.110, 19.110, 18.969, 18.406, 
18.265 

DT 1 - 28.000, 28.000, 28.141, 28.704 
28.845 

RWG 1=1., 1., 1., 1., 1. 

SDIA 1 = .0, .0, .0, .0, .0 

SDEA 1 = 

SREC 1 = 

SETA 1 = 

SCF 1 = 

SPA 1 = 22.140, 26.035, 30.135, 34.194, 
38.499 

SESTH 1 = 1.00 

RDIA 1 = 58.6, 52.9, 46.1, 38.2, 28.9 

RDEA 1 = 

RREC 1 = 

RETA 1 = 

RCF 1 = 

RTF 1 = 

RPA 1 = 33.408, 36.352, 38.976, 41.280, 

43.008 

RERTH 1 = 1.01 


STAGE 2 

GAM G 2 = 1.40, 1.40, 1.40, 1.40, 1.40 

DR 2 = 18.265, 17.814, 17.673, 17.110, 
17.110 

DT 2 = 28.845, 29.296, 29.437, 30.000, 
30,000 

RWG 2= 1., 1., 1., 1., 1. 

SDIA 2 = 33.0, 30.4, 28.2, 26.3, 24.6 

SDEA 2 = 

SREC 2 = 

SETA 2 = 

SCF 2 = 

SPA 2 = 30.420, 36.855, 43.485, 50.765, 
58.240 

SESTH 2 = 1.01 

RDIA 2 = 44.6, 34.9, 24.1, 12.6, 1.3 

RDEA 2 

RREC 2 = 

RETA 2 = 

RCF 2 = 

RTF 2 = 

RPA 2 = 43.350, 48.150, 52.350, 55.750, 
58.550 

RERTH 2 = 1.01 
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A parametric variation of loss definition parameters and corrected speed was com- 
pleted to establish the flow and efficiency characteristics to produce 92.5 percent 
overall rating efficiency at 100 percent design speed at a rating pressure ratio 
of 2.60. By comparison of calculated results with the known performance data it 
was observed that peak efficiency was calculated near 110 percent design speed 
whereas the test data peaked at 120 percent design speed. The drop-off in peak 
efficiency with speed was calculated to be less than the test data. 

In order to obtain a better match with the test data it was assumed that 
optimum incidence angle occurred at the design value -8°. In addition, the cosine 
exponent for of f -incidence angle recovery factor was increased from 2.0 to 3.0 to 
better match the drop-off in peak efficiency with speed, and a decreasing flow 
coefficient with blade row number was assumed to produce a reduction equivalent 
flow with speed. 

5.1 . Input Sheets - Shown in Appendix 4 are the input sheets for NASA 
Reference Two-Stage Turbine. The input deck is listed in Appendix 6. 

5.2 Output Listing - Shown in Appendix 5 are the output listing near the 
design point for NASA Reference Two-Stage Turbine. 

5.3 Results - Shown in Figures 10 and 9 are the performance maps for NASA 
Reference Two-Stage Turbine in terms of equivalent weight- flow versus overall 
rating total-pressure ratio for lines of equivalent speed, and equivalent shaft 
work versus equivalent weight- flow-speed parameter with contours of rating pres- 
sure ratio, equivalent speed and rating efficiency. A table of variation of 
significant parameters along the peak efficiency ridge is given in the following 
table: 


%N/ \/0cr‘ design 

60 

80 

100 

120 

WN€/60£ 

1470.7 

2361.1 

3142.1 

3804.3 

Ah/Ocr 

8.14 

15.65 

24.69 

33.08 

Pto/Pat 2 

1.298 

1.671 

2.308 

3.192 

‘Vj tat 

.915 

.923 

.935 

.942 


10.09 

10.37 

8.23 

1.92 

Is, 2 

-2.01 

.83 

.13 

-6.33 

Ir , 2 

-11.72 

- 5.2 

-.73 

.06 

a 2,2 

-25.48 

-17.61 

-9.3 

-.25 

Mf, 2 

.15 

.23 

.34 

.49 
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It can be seen that the efficiency peak occurs at 120 percent design speed. 
The drop-off in peak efficiency with speed characteristics is similar to the 
test data. 

An evaluation of significant parameters along a constant 100 percent 
speed line with varying pressure ratio is given in the following table: 


7oN/ 0cr 

design 100 



WN6/60«T 

2684.4 

3142.1 

3198.3 

Ah/9cr 

11.21 

24.69 

34.28 

Pto/Pat2 

1.523 

2.308 

3.597 

tat 

.801 

.935 

.899 

Ir >i 

-9.36 

8.23 

11.01 

Is, 2 

-33.88 

. 13 

7.59 

Ir, 2 

-41.96 

-.73 

13.89 

«2,2 

-46.22 

-9.30 

18.64 

Mf , 2 

.19 

.34 

.58 


The drop-off in efficiency with pressure ratio is similar to the test data, 
however, at positive incidence angles the calculated result was lower in effi 
ciency than the reported test data. 
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7.0 NOMENCLATURE FOR ANALYSIS 


A 

Ann 

B 

Cf 

Cp 

Dp 

Dr 

Dt 

FF 

FF /A 
FA1A 

8 

h 

I 

J 

M 

Mf 

n do 

Prtol 

Pre 

Ps 

Pt 

Ptp 

Ptr 

Ptrmo 

r 

R 

R 

R g 

rpm 

Rx 

Sh 

Scrit 


Coefficient of polynomial 
2 

Annulus area (in ) 

Coefficient of polynomial 
Flow coefficient 

Specific heat at constant pressure (ft/°R) 

Diameter, pitch (in) 

Diameter, root (in) 

Diameter, tip (in) 

2 1/2 

- Flow function (in T /sec) 

1 / 2 

- Flow function per unit area (T /sec) 
Fuel/air ratio 

2 

- Gravity constant (ft/sec ) 

Sector height (in) 

Incidence angle (°) 

Mechanical equivalent of heat (ft lb/BTU) 

Mach Number 

Axial Mach Number 

Passage distributed area (in) 

Pressure ratio tolerance 
Pressure ratio error 
Static pressure (psia) 

Total pressure (psia) 

Total pressure profile (psia) 

- Total pressure ratio 
Previous total pressure ratio 

- Ratio 
Ratio 

- Relative velocity (ft/sec) 

Gas constant (ft/°R) 

Speed (rev /min) 

- Reaction 

- Station height (in) 

Station critical 
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TF 

Ta 

Ts 

Tt 

U 

V 

Wair 

Wg 

Wgt 

Wr 

X 

Y 
Z 


- Test factor 

Average temperature (°R) 
Static temperature (°R) 

- Total temperature (°R) 
Wheel velocity (ft/sec) 
Velocity (ft/sec) 

- Water/air ratio 
Weight flow (lb/sec) 

Total weight flow (lb/sec) 

- Flow ratio 
Array 
Array 

Zweifel parameter 


a 

OF 

3 

pF 

r 

7F 

A 

s 

d 

£ 

e 

TT 

e 
s 

^ tol 
0 
S' 

CO 

1 


? 


- Absolute flow angle preference from axial) 
Alpha fork 

- Relative flow angle (“reference from axial) 
Beta fork 

Specific heat ratio 
Gamma fork 
Incremental change 
Standard pressure correction 
Differential operator 

- Standard gamma correction 

- Efficiency 

Standard temperature correction 

- Circle circumference/diameter 
Density error 

3 

- Static density (lb/ft ) 

Density tolerance 
Temperature ratio 
Loading parameter 

Total pressure loss coefficient 
Percent 
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SUBSCRIPTS 


0 

- 

Station designation 

I 

- 

Station designation 

1A 

- 

Station designation 

2 

- 

Station designation 

2A 

- 

Station designation 

at 

- 

Axial total 

c 

- 

Calculated 

c 

- 

Cubic coefficient 

c 

- 

Critical 

cr 

- 

Critical 

crit 

- 

Critical 

e 

- 

Effective 

h 

- 

Hub 

i 

- 

Sector counter 

I 

- 

Isentropic 

in 

- 

Inlet 

inc 

- 

Incompressible 

IP 

- 

Pitchline sector 

Isect 

- 

Number of sectors 

isen 

- 

Isentropic 

j 

- 

Index counter (general) 

k 

- 

Stage counter 

Kstg 

- 

Number of stages 

S. 

- 

Index counter (general) 

m 

- 

Multiplier 

mn 

- 

Maximum negative limit 

mp 

- 

Maximum positive limit 

o 

- 

Overall 

P 

- 

Pitchline 

q 

- 

Quartic coefficient 

r 

- 

Root 

r 

- 

Rotor 

r 

- 

Relative 

r 

- 

Range 



.48 



rr 

- 

Rotor recovery 

s 

- 

Static 

s 

- 

Stator 

s 

- 

Stage 

s 

- 

Square coefficient 

si 

- 

Standard sea level 

sr 

- 

Stator recovery 

t 

- 

Total 

t 

- 

Tip 

th 

- 

Throat 

tr 

- 

Trial 

u 

- 

Tangential component 

vd 

- 

Vector diagram 

z 

- 

Axial component 


SUPERSCRIPTS 
a - Degrees 

* - Blade angle 
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FIGURE 2 
THREE TEST CASES 

ERROR EVALUATION FOR PROPORTIONAL AREA SECTORS 




b.) Large 
Stator 
Tip Sector 



c . ) Large 
Stator 
Root Sector 



PITCH SECTOR TURBINE WORK FUNCTION 







STATOR SECTOR WEIGHT FLOW lb /sec 


FIGURE 5 
TEST CASE 1. 

STATOR SECTOR WEIGHT FLOW VERSUS SECTOR PRESSURE RATIO 


\ \ 


\ \ \ 

\ \ \ 


\ \ \ \ 

k \ \ ' Choked Flow Over-expanded 

' \ ^ 


\ \ \ x 

/\ \ \ \ 


Supersonic Flow Decrease 


' A \ \ \ \ 

' XVVx 

xrv\ \ 

\ ^ ^ 


Sector Flow 

— Radial Pressure 

Gradient 


STATOR SECTOR PRESSURE RATIO 




STATOR STATION WEIGHT FLOW lb /sec 


FIGURE 6 
TEST CASE 1. 

STATOR STATION WEIGHT FLOW VERSUS STATOR PRESSURE RATIO 
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2.2 2.4 



ROTOR SECTOR WEIGHT FLOW lb ' sec 


FIGURE 7 
TEST CASE 1. 

ROTOR SECTOR WEIGHT FLOW VERSUS SECTOR PRESSURE RATIO 
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FIGURE 8 
TEST CASE I. 

STAGE TOTAL WEIGHT FLOW VERSUS STAGE PRESSURE RATIO 
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FIGURE 9 

NASA TWO STAGE TURBINE 


EQUIVALENT ENERGY VERSUS EQUIVALENT FLOW- SPEED PARAMETER 



1.4 = PT/PAT 9 
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APPENDIX 1A. 


NTCP - MAIN CALLING PROGRAM 


NTCP Main Program 

Turn off sense lights 
Set standard values 


WAIR 

= 

0.0 

FAIR 

= 

0.0 

PTPS 

= 

1.02 

DELC 

= 

0.0 

DELL 

= 

0.0 

DELA 

= 

0.0 

EXPN 

- 

2.0 

EXPP 

= 

2.0 

EXPRE 

= 

0.0 

RG 

- 

0.0 

PAF 

= 

0.0 

SLI 

= 

0.0 

AACS 

= 

1.0 

SECT 

= 

1.0 

VCTD 

= 

0.0 

WTOL 

= 

1.E10-4 

RHOTOL 

= 

1.E10-4 

PRTOL 

= 

1.E10-6 

PCNH(l) 

= 

i.O 

GAM (1,1) 

= 

0.0 

RWG(1,1) 

= 

1.0 

ETAS (1,1) 

= 

0.0 

ALPHA1 (1,1) 

= 

0.0 

ETAR (1,1) 

= 

0.0 

BETA2 (1,1) 

= 

0.0 

TRDIAG 

= 

0.0 

TRLOOP 

— 

0.0 
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G 

AJ 


Set case number to zero 


32.17405 

778.161 


Program return for next case 

1. Set previous error to "false." 

CALL INIT 

Set point number to zero 
Test for previous error "true." 

If error occurred, GO TO 1. 

If no error occurred 
Set 

CB(I) = 0. for I = 1,8 

CR (I) = 0. 

PASS = 0 . 

2. Set PR PC to CS(KN) 

CALL STA01 

Set CS(KN) to PRPC 

Test for SCRIT 1., set DELPR to DELL 
Test for previous error, GO TO 40. 

3 . CALL STA1A 

Test for previous error, GO TO 40. 

4. LOPIN = 0 

JUMP = 0 

Set PRPC = CR(KN) 

CALL STA2 

Set CR(KII) = PRPC 

Test for previous error, GO TO 40. 

Tfcst Mpp, root pL.O - MF 2 (l,k)j^ 

If MF 2 root^ 1 . 0 

Skip to end of case (24) 

If MF 2 root^ 1 . 0 

5. Test JUMP 

If JUMP =1.0 

Skip to set index registers (20) 

If JUMP =0.0 
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6. CALL STA 2A 

Test for previous error, GO TO 40. 

Test for last stage 

If KSTG > KN 


7. Increase stage number 


8 . 


LOPIN =0.0 
JUMP =0.0 


set 

CALL STA1 
set 

Test for previous error, 
Test JUMP 
If 

GO TO CALL STA 1A (3) 


PRPC = CS (KN) 

CS (KN) = PRPC 
GO TO 40. 


JUMP =0.0 


If 


JUMP =1.0 

Skip to set index registers (20) 


If 


KN = KSTG 


9 . CALL OVRALL 
Test VCTD 

If VCTD >0.0 

Calculate interstage vector diagrams 

IQ. CALL INTER 

If VCTD =0.0 

PASS =1.0 

TRDIAG > 0.0 

TRDIAG =0.0 

MFSTOP >1.0 
MFSTOP < 1.0 

DELC =0.0 


11 . 

Test TRDIAG 
If 

12. CALL DIAG 
If 

13. Test MFSTOP [l. - MFSTOpj 
If 

Skip to end of case (24) 

If 

14. Test DELC 
If 
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Skip to end of case (24) 

If DELC >0.0 

15. Test DELL 

If DELL =0.0 

Skip to test for choke (17) 

If DELL >0.0 

16. Test DELPR 

If DELPR = 0.0 

Skip to end of case (24) 

If DELPR >0.0 

Skip to increase CASE number (18) 

17. Test CHOKE 

If CHOKE =0.0 

18. Increase CASE Number 
Increase proper P/P 

19. JL = (ISORR-1) * 8 + LSTG 
Pto/Psl (IP, JL) = Pto/Psi (IP, JL) + DELPR 

Set index registers 
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LOPIN = 1 




KN = LSTG 




IBRC = LBRC 




IPC = 0 


Test for first stage 


If 

first stage, 


KN = 1 

21 

. Test for stator 

or rotor 


If 

stator, 


IS0RR = 1 


GO TO CALL STA01 

(2) 


If 

rotor, 


ISORR = 2 


GO TO CALL STA2 

(4) 



All other stages. 


KN > 1 

22 

. Test for stator 

or rotor 


If 

Stator, 


ISORR = 1 


GO TO CALL STA1 

CO 


If 

Rotor, 


ISORR = 2 


GO TO CALL STA2 

(4) 
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40. Write previous case has error, 

Test for MFST0P=2., GO TO next case (24) 
GO TO next point (18) 

24. Test for last case 

If not last case, ENDJOB ^ 1. 

GO TO next case (1) 

If last case ENDJOB-rl. 

GO TO CALL EXIT 

23. CALL EXIT. 
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APPENDIX IB. 


INIT - INITIALIZATION 

Subroutine Inlt 

The purpose of subroutine INIT is to check for input errors, skip 
change cases if the basic case has an input error, test stage loss indicator 
to store stage one (1) data in following stages, test for equal sectors, set- 
up sector height, sector pitch diameter, sector annulus area, pitchline wheel 
speed, define pitchline index, test for angle input to calculate exit angJA 
m radian s, inlet angle in radians, and initialize index registers and forks. 

3 . CALL INPUT 

Increase case number counter 

STGCH =0.0 

error fork = 1 
STGCH =1.0 

L = 1 

6. Wfcite tape 6, case number has an error 
Test for change case 

If basic input case, STGCH = 1.0 

Read in next case (3) . 

If change type case, STGCH =0.0 

Increase error fork to 2. 

Read in next case (3). 

If no error occurred, L = 2 

8. Test error fork - 2 

error fork = 2 

Read in next case (3). 

error fork = 1, 

no error 


Test for change case 
If change type case, 

4. Set 

If basic input case, 

5. Test for input error 
If error occurred, 
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9. Set sector and stage counters 

ISECT = SECT + .0001 
KSTG = STG + .0001 
Initialize index registers 

L9PC = 0 

CHOKE = 0 

ICHOKE = 0 

ISORR = 1 

KN =1 

LSTG = 1 

IBRC = 1 

LBRC = 1 

DELPR = DELC 

SC = 0. 

RC = 0. 

PRPC = 0. 

IPC = 0 

ISS = 0 

PTRN = 0. 

Test stage loss indicator, normally zero'. 

If SLI =1.0, 

store stage 1 parameters in following stages 

11. i = 1, ISECT; k = 1, KSTG 

<7?KS 1)k 

1 s i,k = '’I s l,l 
Cfs,- i = Cfs. 1 

1 J K 1,1 

RRi,k ■ ^ RR i,l 
*1*1, k - '1*1 , 1 

cfR i,k - C£R i,l 
T ™i,l 


12. 

End of i loop, k loop 


13. 

Test PCNH - 1.0 


If 


PCNH =1.0 

14. 


i = 1, ISECT 


PCNE^ = 1 . /SECT 
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15. End of i loop 

If 


PCNH <1., 

use input values 

16. Set up twice station height 



Sh 0 

k = 1, KSTG 
= Dt 0k - Dr 0k 


Sh^ 

= Dtik “ Dr lk 


ShiA 

= Dt lAk " Dr lAk 


Sh 2 

= Dt 2k - Dr 2k 


sh 2A 

= Dt 2Ak ' Dr 2Ak 

Set up sector height 


h0i,k 

i = 1, ISECT 
= .5 PCNHi * Sho 


Mi,k 

= .5 PCNHi * Sh 1 


h lAi,k 

= .5 PCNHi * Sh 1A 


^2i,k 

= . 5; PCNHi * Sh2 


h 2Ai,k 

= .5 PCNHi * Sh 2A 

Test for root sector 

(i - 1) 


Root sector values, 


i = 1 

20. 

D P0i,k 

= Dr 0k + h 01)k 


Dpii,k = Dr lk + h li#k 

D PlAi,k " Dr lAk + h lAi,k 

D P2i,k = Dr 2k + h 2i,k 

D P2Ai,k = Dr 2Ak + h 2A^k 

AnnQi # k ~ (TT/144.) * Dpoi,k * hOi,k 

Ann li>k = (TT/144.) * Dp u ^ k * h li?k 

AnnxAi,k = (TT/144.) * DPlAi,k* h lAi,k 

Ami2i^k = (TT/144.) * DP2i,k * h 2i,k 

Ann2Ai,k = (TT/144.) * Dp 2Ai?k * h 2Ai,k 

UlAi,k = TT * DplAi,k * rpm/720. 
U2i,k = TT * DP2i,k * rpm/720. 

go to end of i loop 

If not root sector, 1 > 1 
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21. Test for more than one sector, ISECT - 1 
If more than one sector 


17. 


D P0i,k = °P0i-l,k + h 0i~l,k + hOi,k 

D Pli,k = D Pli-l,k + h li-l,k + h li,k 

D PlAi,k = D P lAi-1, k + h lAi-l,k + h lAi,k 
D P2i,k = °P2i-l,k + h 2i-l,k + h 2i,k 
°P2Ai,k = D P2Ai-l,k + h 2Ai-l,fc + h 2Ai,k 


AnnQ^^I^ = (Tt/144.) 

* 

Dp i,k 

* h 0i,k 

Ann li,k ~ (TT/144.) 

* 

Dp i,k 

* h i . , 

li,k 

Ann lAi,k = f 11 '' 144 ’) 

* 

Dp i,k 

* h 

lAi,k 

An n 2i k = (Tt/144.) 

* 

Dp i,k 

* h 

2i,k 

Ann 2Ai,k = W 144 -) 

* 

Dp i,k 

* h 

2Ai,k 


U lAi,k = 11 * Dp lAi,k * rpm/72 °- 
U 2i,k = Tr * Dp 2i,k * rpm/72 °- 


18. End of i loop 


19. End of k loop 

Set test for odd or even number of sectors 

IT = ISECT - 2 * (ISECT/ 2) 


Test IT 

If even number of sectors, IT = 0 

22. IP = ISECT/ 2 

If odd number of sectors, IT = 1 

23. IP = (ISECT + l)/2 
Test for stator exit angle input 

If angle not input, SHEA (1,1) - 0.0 

Set stator angle fork 


25. SDEAF =0.0 

Calculate stator exit angle 

i = 1, isect; 

k = 1,KSTG 

cos CX-, , . = ndo . . * -Cf*. . . / (h/h. , ). * TT * Dp n . . 

li,k l, k ths k r li,k 
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a 


li,k 


= tan 


-1 


26. End of i loop, k loop 
If stator angle input, 

27. 


A - (cos a n,k )2 7 cos “u, 

SDEA(1, 1) 4 0.0 


i = 1, ISECT ; 
k = 1,KSTG 


QL. . = a?. . * TT/180, 

li,k li,k 

C°s a 11;k = cos(a 11>k ) 

28. End of i loop, k loop 

Test for rotor exit angle input 
If angle not input, RDEA(1,1) = 0.0 

Set rotor angle fork 

29. RDEAF =0.0 
Calculate rotor exit angle 

i = 1, ISECT; 
k = 1,KSTG 


cos 


^2i^ k ndo Ri,k * Cf R ij (h/h thR^k * ^ * Dp 2i,k 
•/l. - (cos P 2i ^ k ) / cos P 2i ^ k 


P 2i,k * tan 

30. End of i loop, k loop 
If rotor angle input, 

32. 


RDEA (1,1) 4 0.0 

i = 1, ISECT; 
k - 1,KSTG 

P 2i,k = P 21,k * " rT/180 - 
cos P 2i,k = 


33. End of i loop, k loop 

34. 

Stator inlet conditions 


i = 1, ISECT; 
k = 1,KSTG 


PTP . , 
i,k 

PTIN 

PTO . . 
i,k 

PTIN 

TTO . . 
i,k 

TTIN 

PT0/PS1 . . = 

i.k 

FTPS 
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°bl,k - a 0i,k * Wl>0 

Rotor inlet angle 

p ii,k - Pii, k * ^z 180 

35. End i loop, k loop 
Test RG 

If RG not input, RG ■ 0.0 

36. CALL R(PTIN,TTIN,FAIR,WAIR,RG) 

Set gamma fork 

GAMF = 0.0 

If RG is input, RG 4 0.0 

Set gamma fork 

37 • GAMF =1.0 

38. Test for previous error 

If error occurred, J = 1. 

39. Read in next case (3) 

If no error occurred, J = 2. 

40 . RETURN 
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APPENDIX 1C 


INPUT - READ INPUT 

SUBROUTINE INPUT 

The purpose of subroutine INPUT is to read in basic input, stage input, 
assign stage input to its proper location and check for change case input. 
One block of memory to hold one stage of data is set to BLANKS before each 
stage is read. After each stage is read, the elements are compared against 
BLANKS to see if the element is input. If the element is BLANKS the element 
is set to 0.0 for input printout. If the element is not BLANKS, the proper 
number stage value is set to the element. 


Set up X-array 


Y-array 



where i - number of sector 

k - number of stages 
1 - number of elements in list 

Set X(i = 1, k = 1, 1=1) equivalent to 7 . , (Common array) 

Y(i = 1, 1=1) equivalent to 7 ^ (Input list) 


Read the heading cards every time. 

10 Read first card, assign to NAME 
20 Read second card, assign to TITLE 
Set write counter to 0 

30 i = 1,6 ; 

1 = 1,37 

25 Y. = BLANKS 

Read file of stage data 

40 Set counter for number of stages 

50 Set counter for number of sectors 

Compare stage data against BLANKS 

60 i = 1,6 ; 

1 = 1,37 
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If 


Y = BLANKS 


Set 

GO TO end of loop (80) 
If 

Set 


Y 4 BLANKS 

X. . = Y. ! 

i,k,l i,l 


80 End of i loop, 1 loop. 

Relocate values 

90 (B/h t h S ) k = h/h thg 

100 (h/hthR) k ~ B/hthg 

110 Test for stage one 

If stage one (K = 1) 

120 Write basic input data 
Increase write counter 
All stages 

130 Write stage input data 

140 Test for loss option 

If loss option type case (dS s is input) 

150 Write loss option input data. 

160 Increase write counter 

Test write counter to restore printer 
If the write counter is even (AM = 0) 

200 Restore printer 

If the write counter is odd (AM = 1) 

210 Test for last stage 

If not last stage, go to read next stage (30) 

170 If last stage, 

RETURN. 
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APPENDIX ID 


STA01 - STATION 0-1 

SUBROUTINE STAOl 

The purpose of subroutine STAOl is to establish the first stator exit 
flow which is then used as the basis for all stations. Start at pitchline, 
calculate in to root then out to tip. Set Pto = PTIN for first estimate 
and calculate the stator flow for each sector at station 1. Adjust flows 
for cooling air injection between stations 0 and 1. Find inlet Mach num- 
ber and incidence angle loss at station 0. Since loss may vary with sector 
number, adjust Pt and get new flow at station 1 for final result. 

Set i to pitchline value 
Set Ai to -1 
Set flow counter 

Initialize Wgt^ k = 0-0 

Test gamma fork ( 7 F) 

If gamma not input, 7 F = 0.0 

Starting value of average temperature for 7 ^ 

2 - T a,k = -95 * T toIP>k 

CALL GAMMA(P toljl , T alk , FAIR, WAIR, r lk ) 

If gamma input, 7 F = 1,0 

3. CALL FL0W1 (i) 

Test previous error 
If error GO TO (26) 

wgtik = w g t lk + w gli j k 

Test for tip sector 

If not tip sector, ISECT ^ i 

4. Index i by Ai 

Test for lower than root sector 
If lower than root, i = 0 

6 . Ai = 1 

i = IP + Ai 

If not lower than root, i> 0 

Find index for dp /dr 
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22 . 


H = i - Ai 

Ps li,k = Ps ll,k + FL0AT < Ai > * d P /dr ll,k * < h li,k + h ll,k> 1 2 - 

Pt O /Ps li,k = pt 0 i,k/ ps li,k 

Test (Pto/Psii^k-1- ) 

If Pt O /Ps li,k< u 

27. Set Pt O /Ps ll,k - U0 

PTRN a -1. 

GO TO CALL FLOW1 (3) 

If tip sector i = ISECT 

Calculate STAO for incidence correction. 

5. Test flow counter 

If incidence correction has been completed, 

JW * 2 

GO TO end of calculation (18) 

If incidence correction is not complete, 

JW = 0 

16. Test gamma fork 

If gamma not input, 7 F = 0 

7. 7°k"’' 1 k 

WgtO k = Wgtl k /Rwgl k 

i * IP 


Wg 0 i,k = Wg 0 i,k /Rw8l k 

FF/AO. = WgO. *-/ TtO . y (144. * PtO. , * AnnO. /) 

19. Set counter to improve gamma based on root sector average temperature 

j = 1 

8 . CALL PRATIO(FF/A 0 .^ k , 7 ^, RG, PRTOL, Pt 0 /Ps 0 .^ k ) 

Ps 0 i,k = pt 0 i,i/ (Pt ° /PS01 ’ k) 

70 k - 1 . 

T to/ Ts Oi,k - ( pc o/ Ps oi,k> r0k 
Ts 01 ,k = Tt 0 i,k/ (Tto/TSQi^k) 
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9. Test gamma fork 

If gamma not input, 7 F => 0.0 

10. Ta Qk = .5 * (Tt 0i k + Ts 0i ^ k ) 

CALL GAMMA (Pt Q1 y Ta Qk , FAIR WAIR, 7 Qk ) 

Test counter to improve gamma 

If j = 1 

11 . j - j + 1 

GO TO CALL PRATIO ( 8 ) once to improve gamma 
If repeat from CALL PRATIO, j = 2 

12. C P()k = RG * 7 0 k /(7 0 k " !•> * J 

i = 1, ISECT 


Wg 0 i,k = Wgl i,k /Rw81 k 


PTOMO = Pt 0 . 

3 -> k 

FF/A 0 i,k - w «°l,k * Tt °i,k /(1W - * Pt 0 i,k * *“<>!, k> 



Test i 


If 


i = IP 


GO TO 28 


If 


i 4 IP 


Ps 0i,k = Ps 0lP,k 

Pt 0 / ps 0 1)k - Ptp 1 ; k /Fs 0 i? k 


70 k - 1 . 

28. Tt 0 /Ts 0 1>u “ ( p t 0 /P SOl)k ) r ° k 

Ts 0 i,k = Tt 0 i,k /(Tt 0 /Ts 0 ) 1;k 

i3. V 0i>k - \/*2 * g * J * Cp 0k * (Tt 0l>k - T So . k ) 1 

As 0 i,k = v/7 0k * g * RG * TB 0l)k 1 


75 



M Ol,k = V Oi,k /As °i,k 
SI i,k ■ “Ol,k - <,k 


Test SI. , 
x > K 

If SI is negative 
24. 

If SI is positive 

20 . 


EXPS = EXPN 
EXPS = EXPP 


21 . 


Pt 0 //PS °i,k 


?0k _^ * ffj RS * 

2 i,k 


(MOi 


) cos 


EXPS 


(SI. 




Pc 0i,k - Ps 0 i,k * (pt ° /ps o ) 

» 80 i >k = Wg °i,k * Pt 0i, k /Pt 0 M0 

Ao 1>k = 144 - * Ps 0i,k /(RG * Ts 0i,k 


) 


Vu l,k = V 0i,k * Sin a °i,k 
Wgl 1;U - w S ll; k * Pt 0i,k /Pt 0 M ° 


Vz 


0i k V °i,k 


cos 


a °i,k 


14. End of incidence loss correction loop 

w g t lk = 0 . 
i = IP 
Ai = -1 

Set flow counter = 2 

15. GO TO CALL FL0W1 3 
18. End of calculation 

Test for trace of loop 

If TRLOOP = 1. 

Write Wgt 0 , WgQ, Pto/Ps 0 , Wgt 1; Wg]_, PtQ/Ps^ 

Test for previous error 
If error occurred, j = k 

25. CALL DIAGT 1 

If no error occurred, 3 ~ 2 

26. RETURN. 


" rok 
. rOk-1- 
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APPENDIX IE 


FL0W1 - FLOW 1 

SUBROUTINE FLOW1 

The purpose of subroutine FLOW1 is to calculate stator exit flow in 
a sector with two loss branches and supersonic weight flow decrease for 
supercritical sectors up to pitch sector critical pressure ratio. Sub- 
critical sectors have weight flow increase after pitch sector critical 
pressure ratio up to local sector critical pressure ratio. Super -critical 
sectors have cos (XEE correction for constant supersonic weight flow func- 
tion after the pitch sector is critical; sub-critical sectors have cos Q!IE 
correction after local sector critical. When the pitch sector first exceeds 
the critical pressure ratio, PRPC is set = 1.0, the pitchline pressure ratio 
is reset to the critical value, PRPC is reset = 2.0, and flow is calculated 
exactly at the critical pitchline pressure ratio. When the lowest pressure 
ratio sector exceeds the critical pressure ratio, SCRIT is set = 1.0 as an 
indicator that maximum flow has been reached. 

71k based on TAlfc = .95 T-pOjp ^ has been set up by STA01. 


rlk * 1 
71k 


Compute isentropic stator temperature ratio 

7- 01i,k - ( pt 0/Ps 1 ) 1>k 

Test d> for loss coefficient input 
If loss input, STPLC ^0.0 

1. CALL L0SS1 

If efficiency input, STPLC = 0.0 

Compute exit temperature 

2 . 

Test for pitch sector 
If pitch sector 

3. Test for gamma input 

If gamma not input, yF = 0.0 

4. Ta lk = * 5 ( Tt oip,k + Ts lIP,k^ 


Ts.. . , = Tt~ . , * 
li,k 0i,k 


-'‘Kk * (1 - ' 


i = IP 


77 



CALL GAMMA (Pto Ip fc , Ta ][ FAIR,WAIR, 7 lk > 

If gamma input, 7^ “ 1*^ 

Compute critical pressure ratio 


5. 


/ 7 l j£ 

Pto/Ps lck = (r lk + 1 - )y/ 2 * 71k " 


Specific heat at constant pressure 


Cp ik = RG * r ’>' / 


Ik' 


^ik ' * J 


All sectors 
Exit velocity 

6. V li,k " V 2 - * g * J * CP lk * (Tt° ijk - Ts li, k > ' 

Exit pressure j 

Psi i,k = Pto i,y (pto/Psi) i,k 
Exit density . 

f s ii,k ■ 144 - * Ps u,y* G * Ts n,k 

Test for critical pressure ratio 
If greater than critical 

8. Test for pitch sector 

If pitch sector i = IP 

9. Test PRPC 

If previous non-critical, PRPC = 0.0 

10. Set PRPC = 1.0 

Pto/psl IP)k = Pt 0 / Ps lc k * (1. + Prtol) 

go back to repeat from start 01^ k (7) 

If not pitch sector, i ^ IP 

21. Test for pressure ratio less than pitchline pressure ratio 

If pressure ratio is less than the pitchline pressure ratio or the pitchline 

is super “cr itical 


22. Test for 
If 


I = 1 or 
I = ISECT 


I = 1 or 
I = ISECT, 

set SCRIT = 1. 

Pitch supercritical or sector pressure ratio less than pitchline. 

11. 01c k = <7 lk + 
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13. 

14. 


Vlc 1)k - V 2 - * g * J * Cp lk * T t0i>k *^8 1>k * <*lc k - l.)/0lc k ' 

Ts lci,k = Tt °i,k * f 1 ’ -%,k * (1 - - 

f s lc i>k ■ 144 - * Pt 0i,,/( Pt 0/PBl Ck * Ts 1c . a * RG) 

Wg lc i)k = ( s lci,k * V ^l,k * A “li,k * COS “U,k 

Wg li,k = Wg lCi,k 

effective stator exit angle 

cos a 1Ei)k = Wgl 1>k /((Bl 1>k * V lljk * Ann ll)k ) 

-lT I — ^ T~l[ 

a lE i/k = tan -/!• “ < cos a lE i?k ) ‘/cos a 1E ^ k J 

Skip to last block (16). 

If pressure ratio is greater than pitchline pressure ratio 
12. Test for pitchline pressure ratio critical 
If pitchline critical, PRPC = 2. 

Flow is calculated from constant flow function 
24. Wg llA = FFs 1)k * 

Qo to get effective angle (13) 

If pressure ratio is less than critical or supersonic flow decrease 

15 ' Wg ii,k m f s U,k * v ii,k * Ann l,k * cos a ii,k 

cos alE. , = cos al. . 

i,k i, k 

alE. . = al. , 

i,k i,k 


,k 


Last block 


16. 


s i,k - Wg n,k 

v ^li,k = V ll)k * sin(alE. )k ) 


Test for 


d p/dr ll>k = (2./144.) * f.l 1>k * <^l 1A > 2 V(g * D Pll(k ) 

Vz li,k = V li,k * C0S “ 1E i,k 

I <ISECT 
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If 

GO TO CALL CHECK (17) 

I <ISECT, 

If 


I = ISECT 


Test for 

PRPC = 1. 

If 


PR PC = 1 ., 


Set 

PRPC = 2. 

17. 

CALL CHECK 



If error occurred, CALL DIAGT 
20. RETURN 
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APPENDIX IF 


LOSS I - LOSS I 


SUBROUTINE LOSS l (I, K, EX) 
where 


I - sector number 
K - stage number 
EX - (7 - 1 )/j 


The purpose of subroutine L0SS1 is to set 'Osr = 1.0 and calculate tys from 
a quadratic polynominal 


PtO - Psl ^ ^optimum* 

For positive incidence angle, the polynominal is followed up to Cdsmp, then 
a linear multiplier is used for higher incidence angles. For negative inci- 
dence angle, the polynominal is followed down to Qlsmn, then a linear multiplier 
is used for lower incidence angles. 



EXPN = 0. 
EXPP = 0. 


n 


sr 


i,k 


1.0 


Test Is. . 

i,k 


If negative, go to calculation negative quadratic (5) 
If positive, go to calculation positive quadratic (2) 
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If 

zero 


1. 

<501 

= “ s i,k 


Go to calculation ^ )s (9) 


2. 

AS = Al. . 

i,k 

(square coeff.) 


Ac = A2. , 
i,k 

(cubic coeff.) 


A Q ■ A3 i )k 

(quartic coeff.) 

n 


Test (asmp - ao)^ ^ i.e. £(asmp - 

ao*) - (ao - ao*) 

If 

negative 


3. 

= Is 

CDS 

i,k,/“ smp i,k 


ad (asmp - ao*)i.k 


(asr - 

Go to Calculation dSO 1 
If zero 

4. com _ ^ q 

d3s 

AR - («smp - ao*) ljk 
(asr - Cto*)^ ^ 

Go to calculation d)01 (8) 


Negative Quadratic 


AS * A4. , 

i,k 

Ac = A5. , 

i,k 

AQ » A6. , 

i,k 

Test (ao - asmn)^ ^ i.e. jCpJo - 

If negative 

6 . 

COS 


(square coeff.) 
(cubic coeff.) 
(quartic coeff.) 

ao*) - (asmn - ao*) 

_ Isj.k 

(asmn - Pto*)^ k 




AR » (asmn - ao*). u /(asr ■- ao*) . , 

1 j K 


If positive,go to (4) 

8. ^°l=^ s i,k 


1. + (AR) 4 \ AS + AR * (AC + AR * AQ)^ 


* 0 ) 


CDS 


1 . - 


^ s i,k = 


7 1 k - 1 


(Pto/Psl). k * (1. - d5o 1 ) +C56J 7l k 
- i ) > 0i i )k 


RETURN 
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APPENDIX 1G 


R - GAS CONSTANT 

Simple routine for the gas constant for the mixture of JP-4 fuel and/or 
water in standard air. 


SUBROUTINE R(P,T,F,W,RX) 


RETURN 


RX = 53.35045 + 


1. + (F) + (W) 


where P - pressure 

T - temperature 
F - fuel/air ratio 
W - water/air ratio 
RX - gas constant 
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APPENDIX 1H. 


GAMMA - SPECIFIC HEAT RATIO 

Simple routine for the specific heat ratio for the mixture of JP-4 fuel 
and/or water in air. 


SUBROUTINE GAMMA(P, T,F,W,GAMX) 


CALL CPA(P,T,F,W,CPAX) 

Test (F) 

If positive 

1. CALL CPF(PX,TX,FX,WX,CPFX) 
GO TO 2 

If negative or zero 

2. Test (W) 

If positive 


3. CALL CPW(P,T,F,W,CPWX) 

GO TO 4 

If negative or zero 

4- rprY _ CPAX + (F ) (CPFX) + (W)(CPffiQ 

° FGX ~ 1. + (F) + (W) 

CALL R(P,T,F,W,RX) 


GAMX 


CPGX 

CPGX - (RX/778. 161) 


RETURN 


Note: The value of RX and CPGX as calculated in this subroutine GAMG are 

only used to obtain the best value of GAMX and should not get back to the main 
program or station sub-programs. 

The sub-programs calculate CPG based on GAMX and a constant value of RG. 
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APPENDIX II. 


CPA - CONSTANT PRESSURE SPECIFIC HEAT, AIR 

Simple 7th order polynominal of specific heat at constant pressure for 
air at low pressure. 


SUBROUTINE CPA(P,T,F,W,CPAX) 

Test (T - 100.) 

If negative 

1. TX = 100. 
GO TO 5 

If zero or positive 

2. Test (6400. - T) 

If negative 

3. TX = 6400 „ 

4. GO TO 5 


TX = T 


XT1 

= TX/1000 

XT 2 

= XT1 * XT1 

XT3 

= XT1 * XT2 

XT4 

= XT1 * XT3 

XT5 

= XT1 * XT4 

XT6 

= XT1 * XT 5 

XT7 

= XT1 * XT6 

A0 = 

2.4264907 E-01 

A1 - 

-2.6657395 E-02 

A2 = 

4.6617756 E-02 

A3 = 

-1.3546542 E-02 

A4 = 

-8.4500931 E-04 

A5 = 

1.0303393 E-03 

A6 = 

-1.7159795 E-04 

A7 = 

9.1627911 E-06 


CPAX = A0 + Al(XTl) + A2 (XT2) + A3(XT3) + 
A4(XT4) + A5 (XT5) + A6(XT6) + A7(XT7) 


RETURN 
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APPENDIX 1J. 


CPF - CONSTANT PRESSURE SPECIFIC HEAT, FUEL 

Simple 7th order polynominal of equivalent specific heat at constant 
pressure for burned JP-4 fuel. 

SUBROUTINE CPF(P,T,F,W,CPFX) 

Test (T - 400.) 

If negative 

1 . 

GO TO 5 

If zero or positive 

2. Test (3000. - T) 

If negative 

3. 

GO TO 5 

4. TX = T 


XTl 

= TX/1000. 

XT 2 

= XTl * XTl 

XT3 

= XTl * XT2 

XT4 

= XTl * XT 3 

XT 5 

= XTl * XT4 

XT 6 

= XTl * XT 5 

XT 7 

= XTl * XT6 

A0 = 

1.0625243 E-01 

A1 = 

9.5291284 E-01 

A2 - 

-7.2605169 E-01 

A3 = 

2.4481406 E-01 

A4 = 

5.3332162 E-02 

A5 = 

-6.4699814 E-02 

A6 = 

1.7495567 E-02 

A7 = 

-1.6029820 E-03 


CPFX = A0 + Al(XTl) + A2 (XT2) + A3(XT3) + 
A4(XT4) + A5 (XT 5) + A6(XT6) + A7(XT7) 


TX = 400. 


TX = 3000. 


RETURN 
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APPENDIX IK. 


CPW - CONSTANT PRESSURE SPECIFIC HEAT, WATER 


Simple 7th order polynominal of specific heat at constant pressure for 
water vapor at low pressure. 

SUBROUTINE CPW(P,T,F,W,CPWX) 

Test (T - 400.) 

If negative 

1 . 

GO TO 5 

If zero or positive 

2 , Test (3000 „ - T) 

If negative 

3. 

GO TO 5 


4. 


TX = T 

5. 

XT1 

= TX/1000. 


XT 2 

= XT I * XT1 


XT3 

= XT1 * XT 2 


XT4 

* XT1 * XT 3 


XT5 

= XT1 * XT4 


XT6 

= XT1 * XT5 

6 . 

XT7 

= XT1 * XT6 


A0 = 

4.5728850 E-01 


A1 = 

-9.7007556 E-02 


A2 = 

1.6536409 E-01 


A3 = 

-4.1138066 E-02 


A4 = 

-2.6979575 E-02 


A5 = 

2.2619243 E-02 


A6 = 

-6.2706207 E-03 


A7 = 

6.2246710 E-04 


CPWX = A0 + Al(XTl) + A2 (XT2) + A3(XT3) + 
A4(XT4) + A5 (XT5) + A6(XT6) + A7(XT7) 


TX = 400. 


TX = 3000. 


RETURN 
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APPENDIX 1L. 


PRATIO - PRESSURE RATIO 

Purpose is to find a pressure ratio Pti/^SI or ^TR2^S2 w ^ich are con- 
sistent with the respective flow functions (W xJt^/P-jA) ^ or W \[T^/P tr A) 2 . 
Since the equation is trancendental, a successive iteration is employed. 
PRATIO is only called by the pitchline sector to start a continuity iteration 
and therefore only the sub-sonic case is of interest. 


SUBROUTINE PRATIO (TFF , GAMX,RX, PTPS , PRTOL) 

where TFF - flow function 


GAMX 

- specific heat ratio 

RX 

- gas constant 

PTPS 

- pressure ratio 

PRTOL 

- tolerance 


GAMX 


PCRIT = {(GAMX + l.)/2^ GAMX " 1 
PUP = PCRIT 
PLOW =1.0 


PTRMO =0.0 


G = 32.17405 


1 . 


PTR = (PUP 4- PLOW ) / 2 . 0 


DELFM =\](PTR) GAMX - (PTR) 


GAMX + 1 
GAMX 


- TFF 


N 


RX GAMX -1 
2.G GAMX 


Test (DELFM) 

If negative 

2. PLOW = PTR 

GO TO 4 


If positive or zero 


3 . 


PUP = PTR 
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4 . 

Test/FRE/-PRTOL 
If positive 


FRE = (PTR - PTRMO) /PTR 


5 . 

GO TO 1 

If negative or zero 

6. Test (PCRIT - PTR) 
If negative 

7 . 

GO TO y 

If zero or positive 

8 . 

RETURN 


PTRMO = PTR 


PTPS = PCRIT 


PTPSX = PTR 


89 



APPENDIX 1M. 


CHECK - CHECK SENSE LIGHTS 


SUBROUTINE CHECK (J) 

where J = 1 PREVER - .TRUE. 
J = 2 Normal return 

Test sense lights I = 1,4 
If light was off 

1. J = 2 
RETURN 

IT light was on 

2. J = 1 

PREVER = .TRUE. 


RETURN 
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APPENDIX IN 


STA1A - STATION 1A 


SUBROUTINE STA1A 

The purpose of subroutine STA1A is to determine inlet flow conditions 
relative to the rotor and find incidence angle recovery on all rotor inlet 
stations. Start at pitchline to obtain gas properties for the station, 
calculate in to root then out to tip. The tangential component of absolute 
velocity is adjusted for diameter change to conserve angular momentum. The 
axial component of velocity is adjusted for weight flow change, area change, 
and density change from STA1. The radial gradient in pressure does not 
satisfy radial equilibrium, and continuity is conserved in each sector. 


Set i to pitchline value 

Set Ai to -1 

Set first guess of 


Ts = Tsl . , 
1A i, k 


Find ratio of flow change 

Wr = RWGiA k /RWGi k 

Set total station flow 

w S fc lA k = Wr * Wgt lk 

Adjust tangential velocity 

13 ’ Vu lAi,k = V "li,k * Dp li,k /Dp lAi,k 

Adjust flov/, 

WglA i,k “ Wr * Wg li,k 

Starting density 

f str = C si i,k 

Adjust axial velocity 

1. Vz u . )k = Wr * Vz li)k * * Ann^y^st 

T"' 


VIA =-/(Tu7 Ai ^)2. + CV ZlAl)k ) : 


Test for pitch sector 
If pitch sector 


i = IP 
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3. Test gamma fork, 7 F 

If gamma not input, 7 F = 0.0 

12. Ta 1A = .5 * (Tto^ k + Ts 1A ) 

CALL GAMMA(Pto. fc , Ta 1A , FAIR,WAIR, 7 1Ak > 

If gamma input, GAMF = 1.0 

A- Cp 1Afc = RG * nAk /[T nAk - 1.) * j] 

AIS * F V U,k )2 ' ' (V 1A> 2 ] / (2. * g * J * Cp 1Ak ) 

Ts 1A = Ts ll,k + ATs 


7 IA k 


Ps lAi,k " Ps li,k * (1- + ATs/Ts lijk )n Al , k 


- 1. 


f s lA - 144 ' * Ps lAl,k /(RG * Is > 


Find density error 

Test (|^?e| ” ^ tol) 
If error ^ tol 
5. 



Go to calculation new Vz^ A 
If error^ tol 


6 . 


Test ojr 
If (5r is input 
7. 


RU !Ai,k = Vu lA i; k ' D lAi,k 

R lAi,k = V ( Ru lA 1/k ) 2 ' + (V^Al ,^ 2-1 

sinp 1A = Ru lA i)k / R lA 1)k 

1 jsinPi A /n/ 1 . - sin 2 P LA ' 


PlA i,k = tan 


*1 


rr. , 
i,k 


1.0 


EXPR =0.0 
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Mr lA 1)k = R lA i)k /VnA k * r*RG~* Ts'ia"' 

Tr/Ts 1A - 1. + (Mr 1A . jk )2 * ( 71Afc - l.)/2. 

TtriA i,k = Ts 1A * (Tr/ls u ) 

RI i,k = P lA i)k * ^A ijk 

ri> rr/2, 

RI = TT/2 ; 

RI < - TT/2, 

ri = - t r/2 

EXPR = EXPN 
EXPR = EXPP 


Test RI, 

If 

Set 

If 

Set 

If RI is negative 

9. 

If RI is positive 

10 . 


Pr/P{ 


1A 


1. + (Tr/Ts 


1A 


) 


EXPR 


i » k 


(RI. . 
i, k 


Ptr 


1 A i,k = Ps lAi,k * (Pr/Ps^ A ) 


Test for tip sector 
If not tip sector 

14. 


i = i + Ai 


Test for root sector 
If root sector 

15. Ai = 1 

i « IP + Ai 

If i positive 


Go to next sector (13) 
Tip sector 

16. Test for previous error 
If error has occurred 


17. CALL DIAGT 


No error 

18. RETURN 


rlAk _ 
)| 7lA k - 1 * 
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APPENDIX 10 


STA2 - STATION 2 


SUBROUTINE STA2 

The purpose of subroutine STA2 is to satisfy continuity of flow and 
radial equilibrium at a rotor exit station. Relative total temperature and 
pressure are adjusted for the radial change in sector diameter from rotor 
inlet to rotor exit. Flow is adjusted for cooling air injection between 
stations 1A and 2. The starting value of pitchline pressure ratio is obtained 
from a one-dimensional flow function per unit area relationship. Incidence 
angle loss in total pressure will vary with pressure ratio and sector number. 
Simple radial equilibrium is used to balance the radial distribution of flow. 


Set index for critical condition = 0.0 

Set index for flow loop = 1 

Set index for pressure ratio limit = 0 

WR = RWG 2k /RWG 1Ak 
i = 1,ISECT 

TCr2 i,k “ Tlr lAi,k + (U 2l,k 2 ' ' U ll,k 2 ' )/(2 * 8 * J * Cp lA k > 

7 Ik 

Ptr 2i,k = Ptr lAi,k * < Ttr 2i,k /Ttr lAi, k > nA * X ' 

i. W S2i )k = WR * w 8lA i;k 

End of i loop 

Wgt 2 = WR * Wgt 1Ai ^ k 

Set i - IP 

Ai = -1 
Wgt 2c = 0.0 

Test for choke iteration 
If choke iteration, ICHOKE 4 0,. 
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GO TO (3) 

If not choke iteration 

26. ' Test loop iteration 

If loop iteration, LOPIN =/ 0, 

Go to* (3) 

27. Test 7 F 

If gamma not input, 7 F = 0.0 


2 . 


Ta 2fc = -95 * Ttr 2l>k 

CALL GAMMA(Ptr 2 . Ta 2 k > FAIR, WAIR, 72 k ) 


If gamma input, 


7f = 1 ‘° 


16. FF/A 2l>k = Wg 2lA *7^17^/(144. * Ptr 2i)k * Ann 2 . jk * cosfs.,^) 


CALL PRATIO(FF/ A2i k , 72 k > RG > PRT0L > Ptr/Ps 2 ^ k ) 

3. CALL FLOW 2 

Test for previous error 
If error occurred, Go to (22) 

If no error occurred 

Wgt 2cfc = Wgt2c k + w 82 lfk 
L = 1 

Test for pressure ratio less than pitchline 


If less, set L - 1 

Test for tip sector 

If not tip sector, i <C ISECT 

4, i = 1 + Ai 

Test for lower than root sector 
If lower than root, i = 0 

5 . Ai = 1 

i = IP + Ai 

If not lower than root, i 0 

Find index for dp /dr 

6 . 1 = i - Ai 


Ps 2l,k = Ps2 l,k + FL0AT < Al > * d P /dr 2i, k * < h 2 1)k + h 2l,k )/2 ' 


Ptr/Ps 2i,k = Ptr 2i,k /Ps 2l,k 
Test for pressure ratio less than unity. 

If Ptr/Ps2 < \ 1. 
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19. 


1. + Prtol 


PtrS 2i,k “ 

GO TO CALL FLOW2 (3) 

If Ptr/Ps 2 > 1.0 

GO TO CALL FLOW 2 (3) 

If tip sector, i = ISECT 

Test index for pressure ratio limit 
If first time past, counter = 0 

8. Set index for pressure ratio limit = 1 


Pr 


crit 



+ l.)/2 


2 


72k 

72 k - 1- 


Pr up = E ’ tr 2xp ) k * Pr crit * Ps 2l,k' , ^ PCr 2l,k * PS2 IP,k^ * 

P r low ~ 1*0 


On pressure ratio iteration, counter ^ 0 

9. Set index to value plus 1. 

10. Set counter for blade row 

Test for choke iteration on this blade row. 
If this blade row is on a choke iteration, set 

PtrS 2lP,k = Prup - 

If Wgt 2c <(_ Wgt 2 

11. Pr low “ Ptr/Ps 2 IP ,k 

If Wgt 2 c> Wgt 2 

12. Pr up = Ptr/Ps 2ip ^ k 
Set flow error 


13. 


WE = 1. - Wgt 2k /Wgt 2ck 


Increase flow loop index 
Test (index - 32) 

Fails to converge in 32 passes 
GO TO WRITE ERROR (18) 

Converges on continuity 

29. Test for choke iteration on this blade row 
If this blade row is on a choke iteration, 

ICHOKE = L. 


(1. + PRTOL) 
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31. Set SCRIT = -WE 

GO TO TEST TRLOOP (15) 

30. Test for loop iteration 
If loop iteration, LOPIN = 1, 

Go to (15) 


If not on loop iteration 
14. Pre 


Test 


Pre 


-Prtol 


< Ptrs 2 IP ^ k ' Ptrmo) / Ptrs 2];p ^ k 


If pressure ratio error is less than tolerance 


Test 


We 


-Wtol 


If flow error is less than tolerance, GO TO TEST TRLOOP (15) 
If flow error is greater than tolerance, set 

SCRIT =1.0 (23) 

If pressure ratio error is greater than tolerance. 

24. Ptrmo = Ptrs 2 jp k 

Wgt 2 c k =0.0 
i = IP 


Ai = -1 



Test SCRIT 



If 

GO TO TEST TRLOOP 

(15) 

SCRIT =1., 

If 



SCRIT = 0. 

28. 


Ptrs 2lP,k 

- .5 * (P r up + Pr l 0w ) 


Test (Ptrs 2i ^ k - Pr crit ) 

PtrS 2lP,k< Pr crit’ 

set PRPC = 0. 


GO TO CALL FLOW 2 (3) 

23. SCRIT = 1. 

15. Test for TRLOOP 

If TRLOOP 4 0. 

WRITE: Prup, Prlow, We, Prcrit, j, Wgt 2k , Wgt 2ck , Wg 2 ^ k , p trs 2l 

If TRLOOP = 0. 

25. Test for previous error 
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If error has occurred 

20. CALL DIAGT 

If no error has occurred 

21. CALL LOOP 

22. RETURN 
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APPENDIX IP 


FLOW 2 - FLOW 2 


SUBROUTINE FLOW 2 

The purpose of subroutine FL0W2 is to calculate rotor exit flow in a 
sector with two loss branches and supersonic weight flow decrease in super- 
sonic sectors up to pitch sector critical pressure ratio. Subsonic sectors 
have weight flow increase after the pitch sector critical pressure ratio up 
to local sector critical pressure ratio. Supersonic sectors have cos j3?:p: 
correction for constant weight flow function after the pitch sector is 
critical; subsonic -sectors have cos P 2 g correction after local sector criti- 
cal. When the pitch sector first exceeds the critical pressure ratio, PRPC 
is set = 1.0, the pitchline pressure ratio is reset to the critical value, 
PRPC is reset = 2.0, and flow is calculated exactly at the critical pitch- 
line pressure ratio. When the last subsonic sector exceeds the critical 
pressure ratio, SCRIT is set = 1.0 as an indicator that maximum flow has 
been reached. 

72 k based on Ta 2 k = *95 Ttr 2jp k bas been set up by STA2, 


Compute isentropic rotor relative temperature ratio 

y2k - 1. 

10 ‘ ^ 2 i,k = (Ptr/Ps 2j ^ k ) ? 2k 

Test (pr for loss coefficient input 
If (5 is input RTPLC > 0„0 

1. CALL LOSS 2 

If efficiency input, RTPLC = 0.0 

Compute exit temperature 


Ts2, 


Ttr 2 




k 


(1 


= 0.0 


-i,k 

Test for pitch sector 
If pitch sector, i = IP 

3. Test for gamma input 

If gamma not input, 7 p 

4. Ta 2k = .5 * <Ttr 2l>k + Ts 2 .^) 

CALL GAMMA (Ptr 2i Ta 2k , FAIR,WAIR, 72 k) 

If gamma input, = 1.0 

Compute critical pressure ratio 
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5. 


6 . 


^ y 2k 


Pr/p S2i C rif- = l^2k + 1 

i 


Specific heat at constant pressure -j 

Cp 2k - RG * * 2k / |cr 2k - !•> * J j 

All sectors 

Relative exit velocity 
R 2 


1>k =V2 * g * J * Cp 2k * (Kr 2l)k - Ts 2 . )k ) 


Efcit pressure 


Ps 2 i)k = Ptr 2i, k / < Ptr/Ps 2i,k ) 


Exit density 

/ S2 i,k = 144 ‘ * PS2 l,k /RG * TS 2i,k 
Test for critical pressure ratio 
If greater than critical 

7. Test for pitch sector 
If pitch sector 

8. Test for previous critical pitch sector 
If no previous pitch critical occurred, 

PR PC = 0.0 

g> PRPC =1.0 

Ptr/Ps 2i,k = Pr/Ps 2crlt k 
go back to repeat from start 02^ k (1°) 


22. Test for pressure ratio less than pitchline 
If greater, go to supersonic flow decrease (13) 
If pressure ratio less than pitchline 


18. Test for 
or 
If 


or 

set 


I = 1, 

I = ISECT 
1=1 

I = ISECT, 
SCRIT = 1. 


11. 02c k = (.7 2 k + I-)/ 2 0 2c k - <72 k + 1 -'> /2 


R 2c 


i,k 


=-/2 * g * J * Cp2 k * Ttr Zl>k * r 1)k * (0 2 c k - 1 
Ts 2c 1)k - T« 2i)k * [l- -%,k * (1 ‘ ’ W02 ‘k] 


•)/» 2c k ' 
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s 2ci)k = 144. 

* Ptr 2l>k /r M * (Pr/Ps 2 Ck ) * Ts 2c . 

^ 8 2ci jk = 

S 2ct, k * R 2c 1;k 4 Ann 2i;k * cos P 2 . )k 


Wg2 i)k - «S2c i)k 


Skip to calc cos P 2E , P 2E (14) 

If pressure ratio greater than pitchline 
13. Test (PR PC - 1.) 

If PR PC = 2. 

24. Wg 2 . ;k = FFr 1;k * Ptr 2i yVW2 ljk 

Overexpansion after supersonic flow decrease 
W. cos = w S2 i;k /f s 2 1)k * R 2 1)k * A “2 1;k > 

2~\ 


P 2E i)k = tan ^ - < cos ^2E 1A )‘pos P 2E . ;k 

Skip to last block (16) 

If pressure ratio less than critical, or 
If supersonic flow decrease 

15. Wg 2ljk = (°s 2ifk * R 2 . )k * Ann 2i)k * cos 


cos 


P 2E 1)k " cos P 2l)k 
P 2E i;k = P2 1)k 

FFr i,k “ Wg 2i,k ‘VTtrj'i^/I-trj^k 


Last block 


16. 


*"2 i>k = R 2 1;k * sln(p 2E . )k ) 

V/, 2l, k = ^2 i)k - v 2 ljk 

dp/dr 2l k « (2./144.) *^ s 2ji )k * ^*<2 1)k ) 2 /(g * D P2 1; 
V22 l,k = R 2i,k * COS P 2E i>k 

r 1 — ^ 

As 2i ^ k = V 72k‘.* £ * ** ■ Ts 2i^k 

v 2i, k =v<vr 21; /- + (v U2i)k > 2 -' 
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M 2i,k = V 2i,k /As 2i,k 
Mr 2l,k " R 2l,k /As2 i,k 
M£ 2i,k = Mr2 i,k * C0S P 2E i)k 


If 

Go to text for error 

(17) 

I 

ISECT, 

If 



PR PC 

= 1., 


set 


PRPC 

= 2. 

17. 

Test for previous error 



19. 

Error occurred, CALL 

DIAGT 



21. 

No error, 




RETURN 
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APPENDIX IQ 


L0SS2 - LOSS 2 

SUBROUTINE LOSS 2 

The purpose of subroutine L0SS2 is to set^rr - 1,0 and calculate^ r 

from a quadratic polynominal: 

APt f( . v 

PtriA ~ PS2 Optimum* lr 

For positive incidence angle, the polynominal is followed up to p rmp, then 
a linear multiplier is used for higher incidence angles. For negative 
incidence angles, the polynominal is followed down to j3 rmm, then a linear 
multiplier is used for lower incidence angles 



(Prr - [31a )r 

EXPN = 0. 
EXPP = 0. 

^ rr i,k= 1 -° 

Test (ir) 

Incidence angle is zero 

“1A2 =d5r i,k 

Incidence is positive 
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AS = Bl. 


i,k 


AC * B2. 


i,k 


(square coeff.) 
(cubic coeff.) 


AQ = B3 . , (quartic coeff.) 

l, k 

r 


3 . 


Test (|3rmp - Pi A ) i.e. Ormp - |PlA*) - Oi A " PlA*3j 

Within positive limit. Go to (6) 

Exceeds positive limit 

dW<5r - Ir. )k /(|3rmp - P 1A *) ijk 


AR = Ormp - PiA*) ijfc / (P rr " PlA*4,k 

Go to (7) 

Incidence is negative 

AS = B4. , (square coeff.) 
i , k 

AC = B5. , (cubic coeff.) 

l, k 

AQ = B6 . , (quartic coeff.) 

Test 0 1A - Prmn) i.e. |^Ox A - P 1A *) - Ormn - 0 1A *) 

Within negative limit. Go to (6) 

Exceeds negative limit 

5. dWcor = Ir i Ormn - Pia*^ 


AR = Ormn - P u *) 1>k /©rr - P 1A *). jk 

Go to (7) 

Incidence angle is within quadratic limits 
6. djm/djr - 1.0 


M ^ P 1A " P lA*^i,k /(prr ~ P lA*^i,k 


7 . cISi a _ o = o>r 


1A-2 " ^i,k 


1. + (AR) 2 '^ AS + (AR)|aC + (AR) Aq| 


■ 


1. 


* d3m/djr 


TlAk 


lm " ( (Ptr lA /Ps 2 ) i,k * (1, " ^1A~ 2 ) +d5 1A -2^) y l A k 

( ®2i,k * 1 - )/0 2i )k 

Test for previous error 


- 1 , 


RETURN 
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APPENDIX 1R 


LOOP - LOOP ITERATION 


SUBROUTINE LOOP 

The purpose of subroutine loop is to handle all the logic for iterating 
to obtain the exact choke point. Eight possible conditions may arise during 
the calculation: 

1. ) UNDERFLOW - For very low pitchline pressure ratios, due to the radial 

variation in blade row inlet total pressure and radial variation in 
blade row exit static pressure, the stator tip sector or rotor root sec- 
tor pressure ratio may be less than unity, (PTRN = -1.) LOOP sets KN = 1, 
increases PR by DELPR and rfeturns. (PATH 18-19-21) 

2. ) NO CHOKE - If the station flow is less than critical (SCRIT =0.) and this 

blade row is not within an iteration, LOOP returns to the normal calcu- 
lations. (PATH 1-3-5-18-19-21). 

3. ) INITIAL CHOKE DETECTION - If the station flow is greater than critical 

(SCRIT - 1.) when the program is not at the last blade row of an itera- 
tion loop (ICHOKE ^ IBRC) and when no other choke has previously occurred 
at this pressure ratio (IPC =0), then all the necessary counters and 
variables are saved at the last condition prior to choke detection and 
an iteration loop is entered. The pressure ratio increment is halved, 
the pressure ratio reduced by the resulting amount and a return made to 
the most upstream blade row of the iteration loop. (PATH 1-3-6-8-9-10- 
11-13-14-15-16-17-19-21) . 

4. ) CHOKE ITERATION NOW SUB-CRITICAL - If the station flow is less than 

critioal (SCRIT = 0„), but this is the last blade row of an iteration 
loop (ICHOKE = IBRC), then the pressure ratio increment is halved and 
the pressure ratio at the start of the loop increased by the resulting 
increment. The iteration then continues from the first blade row 
involved. (PATH 1-2-3-5-7-16-17-19-21). 

5. ) CHOKE ITERATION SUPER -CRITICAL AGAIN - If the station flow is greater 

than critical (SCRIT = 1.), when the program is at the last blade row 
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of an iteration loop (ICHOKE = IBRC), the pressure ratio increment 
is halved, the pressure ratio reduced by that amount and a transfer 
made to the start of the iteration loop. (PATH 1-2-3-6-13-14-15- 
16-17-19-21). 

6. ) MULTIPLE CHOKE - If the station flow is greater than critical (SCRIT = 1.) 

and a choke has occurred upstream at this pressure ratio (IPC = 1), the 
program is restored to the status before the previous iteration loop, 
the pressure ratio increment is divided by four , the last pressure 
ratio in use before the previous choke occurred is increased by the new 
increment and, as if neither of the two chokes had occurred, the pro- 
gram starts at the most upstream blade row being calculated. (PATH 1- 
3-6-8-9-10-12). 

7. ) CHOKE ITERATION COMPLETE - If the pressure ratio increment (DELPR) is 

within the iteration tolerance (TOLPR), LOOP resets the pressure ratio 
increment to the input value for after a first blade row choke to the 
last blade row choke (DELL), sfets those variables which control how 
far upstream the computation should start, and returns to normal cal- 
culations. (PATH 1-2-4). 

8 . ) SUPERSONIC 


Set value for last blade row 

Ij = 8 + Kstg 

Increase the blade row counter 

Ibrc = -*-brc 

Test for negative sector pressure ratio 
If negative pressure ratio occurred, 

Ptrn = -1. 

Go to (18) 

1. Test for choke iteration on this blade row 
If choke iteration on this blade row 

2. Test pressure ratio increment with tolerance 

If no choke iteration on this blade row or the increment is greater than the 
tolerance 

3. Test for station flow critical. 

4. Increment is less than tolerance-choke iteration complete. 
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Test for 

If not last blade row, 
22 . 

Go to (24) 

If last blade row, 

23. 

24. 


Go to set 


ICHOKE = 0 
Ipc = Ibrc 
Iss = Ibrc 

Isorr = 2 + (Ibrc/2) * 2 - Ibrc 
J1 = (Isorr - 1) * 8 Kn 
next blade row = last blade row 

ji< ij 

Delpr = Dell 

J1 - Ij 
Delpr = Dela 
Lope = 0 
Choke = 1 . 

Lstg = Kn 
Lbrc = Ibrc + 1 

Jump = 0, (18) 


If the station flow is sub-critical 

5. Test for choke iteration on this blade row 

If no choke iteration, go to set Jump = 0, (18) 

If choke iteration, sub-critical branch 

Isorr = 1 for stator 

Isorr = 2 for rotor 

7. Delpr = Delpr/2. 

J1 = (Isorr - 1) * 8 + Lstg 
Pto/Psl Ip = Pto/Psl Ip + Delpr 

Go to increase loop counter (16) 

If the station flow is super-critical 

6. Test for super-sonic increment on this blade row 
If super-sonic increment on this blade row. 

Go to set Jump = 0, (18) 

If not super-sonic increment on this blade row 

8. Test for choke iteration 
If not choke iteration 

80. WRITE Blade Row Choked 

9. Test for single calculation point 
If single calculation point, Go to set 

Jump = 0, (18) 
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If pressure ratio is incremented 

10. Test for previous choke 

If no previous choke occurred, save conditions just prior to the first choke. 

11. Lbrcs = Lbrc 

Isorrs = Isorr 

J1 = (Isorr - 1) * 8 + Lstg 
Sptps = Pto/Psl Ip - Delpr 

Lstgs = Lstg 
Sdelpr - Delpr 

Go to test pass, (13) 

13. Test for previous complete calculation 

If PASS =1. 

14. ICHOKE = lbrc 

Delpr = .5 * Delpr 

If PASS = 0. 

15. Decrease proper P/r by Delpr 

J1 = (Isorr - 1) * 8 4- Lstg 

Fto/Psl ip,ji = Pto/Psl ip,ji ’ Delpr 
Go to increase loop counter (16) . 

If previous choke was occurred, - multiple choke. 

12. J1 = Lstgs 4- (Isorrs - 1) * 8 

Delnu = (Pto/Psl Ip ^ - Sptps)/4. 

Test Delnu 

If Delnu^ 0.0001, 

Set Delnu = Delpr/4. 

Delpr = Delnu 

WRITE - Two blade rows choked, new increment. 

Lbrc = Lbrcs 
Lstg = Lstgs 

Pto/Psl Ip Jl = Sptps 4- Delpr 

Lope = 10 
ICHOKE = 0 
Ipc = 0 
Iss = 0 
CHOKE =0.0 

Go to set Jump = 1 (17) 
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16. Increase loop counter 

17. Set Jump for choke iteration. Jump = 1 
Go to (19) 

18. Set Jump for no choke or choke iteration complete, 

Jump = 0 

19. Test (TRLOOP) 

If TRLOOP is positive 

20. WRITE Ibrc, Lbrc, Isorr, Kn, Lstg, Ipc, Iss, ICHOKE, Jump, Lbrcs, 

Isorrs, Lstgs, Sptps, Pto/Psl Ip ^ Delpr, Dell, Scrit, Lope. 

21. RETURN 
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APPENDIX IS 


STA2A - STATION 2A 

SUBROUTINE STA2A 

The purpose of subroutine STA2A is to determine inlet flow conditions to 
all stators after the first and find stator incidence angle recovery. Stage 
exit average conditions P and T are determined based on an average weighted 
entropy. The profile averaging fork (PAF) is tested to set the inlet profile 
for the next stage inlet. Three profile options are available. Start at pitch- 
line to obtain gas properties for the station, calculate into root then out to 
tip. Absolute tangential component of velocity is adjusted for diameter change 
to conserve angular momentum. Axial component of velocity is adjusted for 
weight flow change, area change, and density change from STA1. The radial gradi- 
ent in pressure does not satisfy radial equilibrium, and continuity is conserved 
in each sector. 


Set i to pitchline value 

Set Ai to -1 

Set first guess of 

Find ratio of flow change 

Set total station flow 


Ts 2Ai,k " Ts 2i,k 

Wr =* RWG 2 ^/RWG 2 ^. 


Wgt2A k = Wr * Wgt 2k 

Initialize summations 

[2'(TR)Wg 2A /Wgt 2A = O.o] 
[21n(TR)Wg 2A /Wgt 2A = O.o] 
( 21 n(PR)Wg 2A /Wgt 2A = O.o] 


Adjust 

12 . 


tangential velocity 

Vu2A, 


k 


Vu 2i,k * Dt, 2i, k /D P2A i; k 


Starting density 
Adjust flow 


fstv = fs 2i>k 

Wg 2 A 1)k " Wr * W S2 1;k 


Adjust axial velocity 
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1 . ' 


Vz 2 A 1>k = Wr * *^ 2l , k * ^^/({str * Ann^) 

V 2A i)k " V0^T k ) 2 - 7^7^ 


Test for pitch sector 
If pitch sector 

2. Test gamma fork 
If gamma not input, 

3. Ta 


i = IP 


7 F = 0.0 

2A = .5 * (Ttr 2i ^ k + Ts 2Ai # k ) 
CALL GAMMA(Ptr 2 . fe , Ta 2A , FAIR,WAIR, 72 A k ) 

If gamma input, yF = 1.0 


4. 


^2A k ' * J 


ATs 


c P2A k - RG * 72A k / 

< V2 i,k )2 ‘ - (V 2A i)k ) 2 j/(2- * g * J * Cp 2Ak ) 


Ts 2A 1)k = Ts 2 1)k +ATs 


21 Ak. 


32. 


Fs 2Al )k = Ps 2 ljk * (1. + ATs/Ts 2 . )fc F2A k 


1.0 


f s 2A = 144. * Ps 2A .y(RG * Ts 2l>k ) 
Find density error 

f 6 ■ ( f S 2A -f Str >f S 2A 

Test (j^?ej - |^tol) 

If error tol. 

s. ^str Y S 2A 

Go to Calculation new Vz 9 (1) 


error < tol . 


6. 

sina 

2A 

" VU 2Ai, k /V 2A l)k 


a 2A i?k = tan 1 

f Slna 2A Av 1 - - sln2 ' 0: 2A~ 1 


Test for pitch sector 


If 

pitch sector, 

H* 

1! 

M 

^3 

24, 

, Test gamma fork 


If 

gamma not input. 

II 

O 


ill 


25. 


Tas k = .5 * (Ta lk + Ta 2k ) 


PaS k = ' 5 * (Pt °IP,k + PC 2AlP, k ) 
CALL GAMMA(Pas , Tas , FAIR,WAIR, r s ) 

K rC 

Go to (27) 

If gamma input, yf? = l # 0 

26 • ^ s k = - 5 * <n k + r 2k ) 


28. 


CP s k = RG * r s k / jj 7 s k - 1.) * J j 
^ VD l,k = (U lAi, k * Vu 1Al)k + «2 1)k * Vu 2l>k ) /(g * J) 
M 2A i)k = V 2A 1)k /V2'2A 1;k * g * RG * Ts 2A ^ k ' 

ATt - TFR. * AhVD. . /Cps. 

y j 1C 1C 


Tt 


2Ai,k Tt 0i,k ‘ ATt 


Tt/Ts 


2 . 


2Ai, k = 1- + ( M 2A i)k > * (72A k - !.)/2. 


72A k 


Pt/Ps 2A i)k = ( T t/Ts 2 A 1>k ) ;2A k - 1. 


Pt 


2A 


i,k " Ps 2A 1)k * ( Pt/Ps 2A i)k ) 


Mf 


2Ai )k = M 2A 1)k * “»(“2A i>k ) 


Test for tip sector 
If not the tip sector 

13. 

Test (i) 

If below root, 

14. 


Go to next sector (12) 
If tip sector is completed, 


i 4 ISECT 
i = i + Ai 

i = 0. 

Ai = -1 
i = IP + Ai 

i = ISECT 
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15. 


i - 1, ISECT 

ISECT 

i - ?! (Tt 2 A l,k /Tt 2 A IP,k ) * (WS 2 A i,k /W 8 t 2 A k ) 

ISECT 

; S [ ln< ' Tt 2Ai,k /TC 2AlP,k ) * (Wg 2Ai j k' ,Wgt 2Ak :i 

ISECT 

2 i ln(Pt 2A . )k /Pt 2Alp>k ) * (Wg2A lik /Wst 2A . jk ) 
Yt k = Tt2A IP,k * 2 ( TR ) W 82Ai,k /W8t 2A k 


Pt u = Pt 2A 


IP, k 


* e [ p ° we 5 


whei'e 


(power] « 2. ln(PR) * ?] g2A i.k + — ^k 

U J i=l w gt2A k (72A k _ i.) 


ln(TR) * ” 82A l.k -'?ln(TR) * Wg2A i,k 

“g^Ai,!, ^ Wgt 2A . 


Test for last stage 
If not last stage 
17. 

29. Is, 

If 

Set 
If 

Set 

Test (jds 

If (5s is input, 

7. 

Go to (117) 

If (jds is not input 


Tt°s k+ r Tt k 

pt0s k + i - Ft k 
i = 1, ISECT 

k + 1 } k a 0 i 

Is >TT/2, 

Is = TT/2 
Is < -TT/2 
Is = -TT/2 


rs . . = 1.0 
i,k 

* Expsi = 0. 
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21 . 


Exp si = Expn 



22 


Tt Oi,k + 1 Tt2A i,k 

23. Continue 

18. Mf s top - Mfi2AxPj k^ aCS 

Test for previous error 
If error 

30. CALL DIAGT 
If no error 

31. RETURN 
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APPENDIX IT 


STA1 - STATION 1 


SUBROUTINE STA1 

The purpose of subroutine STA1 is to satisfy continuity of flow and 
radial equilibrium at the exit of all stators after the first. Flow is 
adjusted for cooling air injection between stations 2A and 1. The starting 
value of pitchline pressure ratio is obtained from a one-dimensional flow 
function per unit area relationship. Incidence angle loss in total pressure 
will vary with pressure ratio and sector number. Simple radial equilibrium 
is used to balance the radial distribution of flow. 


Set index for flow loop = 1 

Set index for critical condition = 0.0 

Wr = Rwgl k /Rwg2A k _ l 

i = 1, ISECT 

Wg li)k = wr * Wg 2A . )k _ x 
“°i,k - a 2A i;k . ! 
Ps °i,k = Ps 2Ai, k - 1 

P 2Aj^ k _ ^ 

Ts 0i,k = Ts 2Aj., k - 1 

Vu 0i,k = Vu 2A 1)k - 1 

Vz °i,k " Vz 2A 1)k . 1 
M °i,k = M 2Al,k - 1 

1. Wgt lk = Wr * Wgt 2Ak . x 

End of i loop 
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Set 


i = IP 
Ai = - 1 


Wgtlc^ = 0.0 

Set index for pressure ratio limit = 0.0 

Test for choke iteration 
If choke iteration, ICHOKE ^ 0, 

Go to (16) 

If not choke iteration 

17. Test loop iteration 

If loop iteration, LOPIN 4 0, 

Go to (16) 

If not loop iteration 

18. Test 7 F 

If gamma not input, 7 F = 0.0 

la lfc = .95 * Tto^ 


CALL GAMMA(Pto Ip Ta lk , FAIR, WAIR, ) 
If gamma input, y¥ = 1.0 


3. 


FF/A li,k ■ W 8 li,k /(!**■ 


* Pto. , * Annl. . 
i,k i,k 


CALL PRATI0(FF/A1, 71fc , RG, Pto/Psl^ k , Prtol ) 
16 . CALL FL0W1 


Test for previous error 
If error. Go to (25) 

If no error occurred 


Wgtlc k = Wgtlc k + Wg]_ i k 


A- 1 

Test for pressure ratio less than pitchline. 
If pressure ratio is less than pitchline. 

Set A = i 

Test for tip sector 

If not tip sector, i { ISECT 

4. i = i + Ai 

Test for lower than root sector 
If lower than root, i = 0 
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5. Ai = -1 

i = IP + Ai 

If not lower than root, i 'P' 0 

Find index for dp /dr 

6 . 1 = i - Ai 

Ps i i( k - Ps ii, k + FL0AT(Ai) * d ? /dr %k * < h ij,k + h ii,k )/2 - 
Pt 0 /Psl i,k = Pt 0i,k /Ps li,k 

Go to CALL FL0W1 (16) 

If tip sector, i = ISECT 

Test index for pressure ratio limit 

If first time past, counter =■ 0 

8. Set index for pressure ratio limit = 1 


71k 
'ik - i. 


Pr crit = [<n k + i • ) /2TJ 
Pr up = Pto/Ps llp ^ * Pr crit /( pt °/ ps lj^ k > * <!• + Prtol > 


Pr low = 1 *° 

On pressure ratio interation, counter 0. 

9. Set counter to value + 1. 

10. Set counter for blade row 

Test for choke iteration on this blade row. 
If this blade row is on a choke iteration, set 


Pto/Psi T _ , = Pr 

i IP,k up 


11. If 

12. If 

13. 


Wgtlc < Wgtl: Pr low = Pto/Ps ilp ^ k 

Wgtlc ^ Wgtl: pr up ~ P to / Ps lip^k 

We = 1. - Wgt^ k /Wgtlc k 

Increase flow loop index 
Test (Index - 32) 

Fails to converge in 32 passes 
GO to WRITE ERROR (22) 

29. Test for choke iteration on this blade row. 

If this blade row is on a choke iteration, 

ICHOKE = L 
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31. Set SCRIT = -We 

Go to test TRLOOP (15) 

30. Test for loop iteration 

If loop iteration, LOPIN = 1, 

Go to (15) 

If not on a loop iteration 

14. Pre = (Pto/Ps^ pp k - Ptrmo) /Pto/Ps-^ ^ p k 

Test |pre| - Prtol 

If pressure ratio error is less than tolerance 
Test |we| - Wtol 

If flow error is less than tolerance. 

Go to test TRLOOP (15) 

If flow error is greater than tolerance, 

Set Scrit = 1.0 

If pressure ratio error is greater than tolerance 
27. Ptrmo = Pto/Ps^. 


IP,k 


If 

If 

19, 

If 


Test Scrit 


Go to test TRLOOP (15) 


w g fc lc k = °-° 

i = IP 
Ai = -1 


Scrit = 1., 


Scrit = 0. 

Pto/Ps llp ^ k = .5 * (Pr up + Pr low ) 


Test (Pto/Ps 1;[p ^ k - Pr crit ) 


Pto/Ps llp ^ k P r Cr ifc? 
PRPC = 0. 


Set 

Go to CALL FL0W1 (16) 

20. Scrit * 1.0 

15. Test, for TRLOOP 

If TRLOOP 4 0 

WRITE; Pr up , Pr low ,We,Pr cri t , j, Wgt lk , Wgt 1Ck? Wgi.^ k , Pto/P S1 

If TRLOOP = 0 
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28. Test for previous errror 
If error has occurred 

23 . CALL DIAGT 

If no error has occurred 

24. CALL LOOP 

25. RETURN 
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APPENDIX 1U 


OVRALL - OVERALL PERFORMANCE 

SUBROUTINE OVRALL 

The purpose of subroutine OVRALL is to calculate turbine overall perfor- 
mance from Stage 1 inlet to last stage exit. Find fhe average overall j and Cp, 
2Up 2 ,£Ur 2 ,£ Ah, Ahtj, As^ ; Ahat^ 


Initialize inlet data and overall summations. 

TtOs = Ttin 
PtOs = Ptin 
TaO = 0. 

PaO = 0. 

7O = 0 . 
Up 2 o = 0. 
Ur^o = 0. 
Ahto = 0. 


Test for gamma input 
If gamma not input 
1 . 

If gamma input 

2 . 


k = l,Kstg 


£Tao =^Tas k 
^ Pao =2 Pas^. 

g 7° 7 s k 


Initialize stage summations 

Ahts - 0. 

Ahtls = 0. 

Ahsls = 0. 

Ahtls = 0. 
i = 1, ISECT 
Rw = Wg2A ijk /Wgt 2 A k 

Aht i>k = Ahvd ijk * TF^ k 
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1 . 


V k i,k 

AhsI l,k = Cps k * Tt Oi,k[ u • (Ps 2Ai ;l / E 

Aht i,k/ Ahs Ii,k 


't s i 


x, k 


Ps 2Ai, k 

Ahat Ii,k = Cps k * Tt 0 


E- 


+ (72A k . i/ 2 *) * 


Ptat. T 

i,k 

i,k E- • (Ptat 2Aj 


(M£ 2Ai,k } 


2 l 


y 2A 


72A 


end of i loop 
Stage output 


Aht i,t/ Ahatl i,k 


T at i,k 

Ahts^ = 2Rw * Aht^ k 

Ahtls k =2 Rw * AhtI i^k 
Ahs Is k =2 Rw * Ahs Ii k 
Ahatis k =2 Rw * Ahat Ii k 


iV PCpi > k l 


7 s 
y s - 1 . 


a °IP,k 


180. /IT 


* 180. /TT 


Q£0s. 
k 

Pss k = Ps IP ? k 

eiAs k - Pia ip>u * 180. /TT 


Irs k= Ir IP,k * 


«2s k - «2 IP ^ k * 180. /TT 


9cr k “^C 7 Q k / 70 k + 1.) * RG * Ttos k J ^(ysl/ysl + 1.) * Rsl * Ts^j 
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7 sl/ 7 ° k 


, . Z ° k 

( 70 k+ 1 ./ 2 )r°k - 1 


/ ( 7 s 1 + l./2) 7Sl 


8 k “ Pfc Os k /Psl 
/ 7tts k = Aht Sk /Ahtis k 
^ts Sk = Ahts k /Ahs ISk 
/>^tat Sk = Aht Sk /Ahatx Sk 
WgtQ k = Wgtx/RWGi 


wV?/Ps k = WgtO k * V Tt 0sk ' /Pt 0 s k 

N/-/? Sk = RPM/-/Tt^ 

Ah/T sk = Aht Sk /TtOs k 
Ah/ 9 cr g k = Aht Sk / 9 crk 

N/V 9 c r Sk - RPM/-/ 9cr k 
w/S k = w g to k * *e k 4 k 

Pt 0 /Pt 2k = PtOs k /Pt k 
Pt 0 /Ps2 k = Pt 0 s k /Ps 2l p^ k 
Tt 2 /Tt 0k - Tt k /Tt 0sk 

Tt r iA/TtQ k - Tt r iAjp^ j^/TtOs^ 

< U 1A IP)k + «2 IP)1 /2-) 2 ' 


123 



Ur; 


Test (AhsI) 

If negative or zero 

14. 

If positive 

15. 

16. 


U lAl, k * Dr lA k /DP!A k + U 2lfk * Dr 2k /D P2k j 2. ^ 
up 2 o =£u P 2 k 

0 9 

Ur o =^Ur' k 
Ahto = 2 Aht Sk 

Visen =1.0 (dummy isentropic velocity) 

Visen k = "/ 2. * g * J * AhsI Ip 1 
Up/Visen k = Up sk /Visen k 


Ur/Visen k = Ur Sk /Visen k 


Rx pk = 1. 


fPs k - g * J * Aht Sk /(2. * Up2 k ) 
fr = g * J * Aht s /(2. * Ur 2 ) 




Root values 


0r = 1 


Vul r = Vul 1)k * Dpl 1A /Drl k 
Vl r =-/(Vul r ) 2 ’ + (Vzl. k ) 2_n 
[l. - Vlr 2 '/(2 • * S * J * C P l k * TC 0l;k ^s 1)k ) 
Pt 0 /Psl r = (0 r ) n k - 1. * Pt P]L ^Pt 0lA 


Rx rk = 1 . 


1. - (l./XPto/Psl, 


„7 s k / 

)7^-T A 


r s k 


- (p S 2 l)k /ptp 1)k ) 


7 s k - 1 


^ r k = <PlAi, k + P2e ljk ) * 
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M1 s k = Vl 1P)k /V7l k * g * RG * Tsl IP;k ' 
Tsl r = Tt 0l;k - (Vl r ) 2 '/(2. * g * J * Cp lk ) 
Mlr Sk = Vl r /-/7l k * g * RG * Tsl r ' 
VuiA r = Vu 1A . >k * DpiA^j/Dr^ 

VlA r =-/(ViiiA r ) 2, + (VziA i ^ k ) 2 * 

TsiA r - Tt0 ljk - (ViA r ) 2 -/(2. * g * J * C PlAk ) 
RuiA r = VuiA r " u lA 1?k * Dr l A l/ DplA l^k 

RlA r = V^ Ru lA r S)2 ‘ + ^ VziA l,k^‘ 

MriA r = R lA r /'V7 1 A k * g * RG * Ts 1A^ 


Tip values 

Vu 2 t = Vu 2 ISECX ^ k * Dp 2 ISECT,k/ Dt2 k 

V2 t = V^ Vu2 t ) 2 ' + ^ Vz 2 xsECT,k^ 2 ^ 

Ts 2c ■ Vu 2t + [(V 2 ISECT)k ) 2 - - (V2 t ) 2 y<2. * g * RG * Cp 2k ) 

Ru2 t = Vu 2t + u 2 ISECT ^ k * Dt 2^ Dp 2 ISECT ^ k 

R2 t = + ^ Vz 2 ISECT,lP ^ 

Mr 2 t = R 2 t /-/72 k * g * RG * Ts 2 ^ 


17. end of k loop 

Test for gamma input 

If gamma is not input, 7 F = 0. 

4. Tao =2Tao/Kstg 

Pao =2 Pao/Kstg 

CALL GAMMA (Pao,Tao, FAIR, WAIR , 70 ) 

7 F = 1. 
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If gamma is input, 



7. 

8 . 

Initialize exit summations 


yo = £yo/Kstg 
Cpo = RG(yo - 1. )/(yo * j) 


9. 


yo - 1, 
yo 


AhTl = 0 . 
o 

Ahsj = 0. 
o 

Ahatj o = 0. 


k = Kstg 

i = 1 , ISECT 
Rw = Wg 2 A i ^ k /Wgt 2 A k 

Z£ h . 

Aht Io =2 C Po * Tto^ * [l. - Rw(Pt 2 A i ^ k /Pt p ^ 1 j 70 

JS. -‘-L_ 

Ahsi o =2c Po * Tt 0l ^ * |l. - RwCPs^.^/Ptp.^J 70 

Ahat Io =2c Po * TtO^ * [l. - Rw(Pat 2A .^ k /Pt pi ^ 1 ^| 

f Po = g * J * Aht<^(2. * Up 2 0 ) 
fr 0 = g * J * Aht 0 /(2. * Ur 2 0 ) 

W-/t/P 0 = wVT/Psj^ 

(WN£/60£) o = W-/ Qcr £/ < J 1 * N/V 0cr‘ s /60. 

H/V0cr' o = N/V 9cr s ^ 

N/'/t’o = N//t' Si 
Ah/T 0 = Aht 0 /Ttin 


end of i loop 


Pto/Pt 2 = Pt* /PtR *. 

^o rL m -stg 


Pt 0 /Ps 2o = Pt ln /Ps 2lP;Kstg 
Pt 0 /Pat 2o = P tln /Pa t2 A IP)Kstg 
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= Aht 0 /Ahtj o 

^? tS o = Aht o/ Ahs I 0 
0^tat o = Aht 0 /Ahat Io 


Ah/9cr = Aht o /0cr^ 


WRITE OVRALL output 
RETURN 
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APPENDIX IV 


INSTG - INTERSTAGE EQUATIONS 

SUBROUTINE INSTG 

The purpose of subroutine INSTG is to set up for printout of interstage 
output. For more than three sectors, only the sector pitchline values are 
printed. For three sectors or less, the hub value and casing value are also 
calculated based on a free vortex distribution in the root sector and tip sec- 
tor respectively. Interstage data is relocated or calculated one stage at a 
time . 


k = l,Kstg 

Relocate pitchline values, convert angles to degrees. 

4. i = l,Isect 

^s 0 = 144. * Ps 0 i ^ k /(Ts 0i ^ k * RG) 

^ = «O iA + aiE. jk 
Ml = VI k /V 7 i k * g * RG * Ts! k 1 
Zinc s = cos (90 - 2Q5iE i k > *j~(tanao i k /tanQ!i El + lj 


C P S = 1. ~ (V0 ijk /V liA ) 


2 . 


Rxp = 1. - 


u - (m 1)k /pt Pl)k ) 7 *. 


- PlA 1;k + P2E 1)k 

ysk - 1. / 7 s k - 1 

7 s k 


/ U " ^k^Pi,^ 
fp=2. * g * J * Aht 1<k / [(U 1Ai) 

Zinc r = cos (90 - 2g2E 1;k ) *T( tan PlA i)k / tan P2E 1)k ) + 1 • 


2 2 

■? + (U 2i,k> 
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5 . 


C Pr ■ 1- * ®lA 1)k /K2. jk ) 


end of i 
Calculate hub 

Station < 

10 . 


Station 1 


2 . 

y? 2 - 144. * Ps2 i k /(Ts2 i k * RG) 

loop 

values, relocate constant values. 

tana lr = tana li)k * Dp u .^ k /DriA k 

- Stator Inlet 

Vu °h = Vu °l,k * D P0l, k /Dr <V 
V0 h =V(Vu h )2 ' + (Vz 0i, k ) 2 -' 

Ts 0 h " Tt 0 1;k - (Vo h ) 2 '/(2. * g * J *Cp 0k ) 

_yQk 

Ps °h = Ps 0i, k * ^ Ts 0 h /Ts 0lA ) 70 k - 1. 
y^so h = 144. * Pso h /(RG * Tso h ) 
a 0h = tan 1 ^ Vu 0 h /Vz 0h ) 

Is h = a °h " tan 1(tan a 0 * D P0^ k / Dr 0 k ) 
As 0h = V 7o k * g * RG * Ts 0 ' h 
M0 h = Vo r /As 0h 

- Stator Exit. 

Vu i h = Vu n, k * D Pii, k /Dr i k 

Vl h =Vo^i 1;k ) 2 - 7 (v ulh > 2 - 1 

Ts l h “ Tt 0 1;k - (Vi h ) 2 -/(2 * g * J * Cp lk ) 

y i k 

Psi h " Ps n, k * (Is ih /Ts ii,k )7lk " 
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S1i = 144. * Ps lh /(RG * Ts lu ) 




a lE h = tan" < Vu l h /Vz l h ) 


= a °h + aiE h 


As 


l h = V/l k * g * RG * Ts^ 


Ml h = V lr /As lh 

Zinc s ^ = cos(90 - 20 : ^ £ K ) * [ ( tanO:Q h /tana | ^ ) + 1 




CPs h - I- - <VO h /Vl h ) 


2 . 


Station 1A - Rotor Inlet. 

VulA h = Vu 1A ^ k * Dp 1Al>k /Dr 1Ak 

Ru lA h = Vu 1Ah - »lA 1)k * DriA k /DplA 1)k 


-1 


Pl h = tan (Ru 1Ah /Vz 1Aljk ) 


r 


lr h = Pl h - tan _1 Jtanai r - (tanO^^ - tanPu^ k > * Dr lA k / D PlAi , ] 

RlA. = -V(Ru 1Ah ) 2 ' + < Vz lAl U> 2 ' 


AT S h (V ll,k ) 


(VziA i>k ) ' + ( Vu lA h > 
Ts lA k = Ts ll,k +ATS h 


l,k 
2 


/ 


(2. * g * J * Cp 1A ) 


MriA h = R1A h /V 7lA k * g * R * Ts lA h 

Tt r /Tsi Ah = 1. + (Mr 1Ah ) 2 ‘ * (71A k _i.)/ 2 - 
Ttr 1Ah = Ts 1Ah /(Tt r /Ts 1Ah ) 
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Test Ir 

If negative incidence 

2 . 

If positive incidence 

7. 

11. Ptr/Ps 1Ah = ^ 1. + 


Expri = Expn 
Expri = Expp 
(Ttr/TsiA h ) - 1 


* ~x, k * <-^i )k > Exprl j 7BqrTT 


Ptr lA k Ps lAh /f (Ptr /P sia^) 

u lA h = U lAx^ k * Dr lAfc/ D PlA 1>k 

Station 2 - Rotor Exit. 

Vu 2h = Vu 2l,k * Dp 2 1;k /Dr 2k 

Ru 2h = Vu 2 h ‘ U 2l, k * Dr 2 k / D P2 1;k 
p 2h = tan 1 (Ru 2h /Vz 2l ^ k ) 

A Ph = PlA h + ^2 h 


R 2 h W (Ru 2h ) 2 ' + (Vz 2l;k ) 2 -' 


AT Su = 


< V 2l,k )2 ' ~ [ (VZ2 l,k )2 ' + < Vu lA h ) 2 *] /<2. * g * 4 * C P2k ) 

Ts 2 h = Ts 2i, k + ATs 2 h 


Mr 2 h = R 2 h y/,- ]/72 k * 8 * R G * Ts 

U2 h = U 2l,k * Dr 2 k /Dp 2l, k 

_ 72k 

Ps 2 h = Ps2 l,k (TS2 h /TS2 l,k ) 


2h 


72 k - 1. 


7s k - l. 


Rx h = 1. - 


1 * - (Psi h /Ptp^ k ) 7Sk 


7sk - 1 


1- - ( ps 2 h / p tp 1)k ) 7s k 
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Aht h = (U 1Ah * Vu 1Ah + U 2h * Vu 2h ) * TF^ 
f h = 2. * g * J *|Aht h / (U Uh ) 2 ' + 

^“h = 

/)^ts h = Aht h /Ahsx^ k 
/^tat h = Aht h /Ahati 


(g * J) 



Zinc r , 

h 


cos (90 - 2p 2 E h > * j^(tanPiA h /tanp2E h ) + 1- 
“ 1* "■ ( r 1A^/ r 2^) 

Vu 2 A h - Vu 2Al ^ * Dp 2Al>k /Dr 2Ak 


ATs 2Ah 


V 2 A h - V (Vu 2Ah ) 2 ' + (Vz 2 A 1;k > 2 -' 
a 2A h = tan 1 ( Vu 2A h / Vz 2A 1 ^ k ) 

(V 2 A ljk ) 2 ' - [(Vz 2 A 1;k ) 2 ' + (Vu 2Ah ) 2 ' / /(2. * g * J * Cp 2 A k ) 


Ts 2A h = Ts 2Ax^ k + ATs 2A h 

72A k 

Ps 2A h - P»2A lfk * O' + ATs 2Ah /Ts 2Al ^^ A k - 1. 
P s 2A h ~ 144 - * Ps 2Ah /(RG * Ts 2Ah ) 

M 2A h = v 2A h /'/r2A k * g * RG * Ts 2Ah 


MF 2A h " M 2A h * cosa 2A h 

Calculate tip values by repeating from (10) with t replacing h and Isect replacing 1. 

8. CALL Wout 

9. End of k loop 
RETURN 
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APPENDIX 1W 


W0UT - WRITE INTERSTAGE OUTPUT 


SUBROUTINE W9UT 

The purpose of subroutine WOUT is to write the interstage output. 


Print out interstage .data. 
RETURN 
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APPENDIX IX 


DIAGT - DIAGNOSTIC 


SUBROUTINE DIAGT 

The purpose of subroutine DIAGT is to write a brief diagnostic when an 
error is encountered. When TRDIAG is input positive, a diagnostic is recovered 
at the end of the main program from each station. 


Test M 


If M = 0 

Go to STAO diagnostic (10). If M = 1 

Go to STAO diagnostic (10). If M = 2 

Go to STAI diagnostic (19). If M = 3 

Go to STA1A diagnostic (11). If M = 4 

Go to STA2 diagnostic (12). If M = 5 

Go to STA2A diagnostic (13). 

10. STAO diagnostic 

If M * 0 

Go to STAI diagnostic (19) 

19. STAI diagnostic 

If M = 0 


Go to STA1A diagnostic (11) 

11. STA1A diagnostic 

If M = 0 

Go to STA2 diagnostic (12) 

12. STA2 diagnostic 

If M = 0 

Go to STA2A diagnostic (13) 

13. STA2A diagnostic 
RETURN 
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APPENDIX 1Y 


PHIM - PHI MAXIMUM 

SUBROUTINE PHIM 

The purpose of subroutine PHIM is to determine the pressure ratio at which 
the flow function is a maximum including the efficiency of expansion s or r* 


SUBROUTINE PHIM (EXI, ETA, TR, PR) 
where 


EXI = function of specific heat ratio, y- 1. 
ETA = expansion efficiency, s or r* 

TR = isentropic temperature ratio, 0. 

- * i ■ 

PR = pressure ratio, 0 T" 


A = 


EXI 


1 

2 


B = - EXI + (1. - ETA) / 2 . 


C = ETA/2. 

X = (-B - yfti 2 - 4AC) / (2A) 


TR = ETA/ (ETA - X) 
PR = (TR) EXI 


RETURN 
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RulA, RlA,sin PIA, piA 



































































































































OVRALL 
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ran o o on 


APPENDIX 3A 


$ I BFTC NTCP FULIST, DECK, SOD NTCP 

CNTCP NTCP 

NASA TURBINE PROGRAM NTCP 

NTCP 

REAL MFSTOP NTCP 

LOGICAL PREVER NTCP 

COMMON /SNTCP/G, AJ,PRPC, I CASE# PREVER » MFSTOP, JUMP , LOP IN , I SC AS E» NTCP 
1KN,GAMF, IP,SCRIT,PTRN, I SECT,KSTG, WTOL , RHOTOL , PRTOL , TRLOOP , LSTG , NTCP 

2LBRC»IBRC,ICHOKE,i SORR » CHOKE »P TOPS 1 { 6 » 8 ) , PTRS2 ( 6 » 8 ) »TROIAG»SC#RC» NTCP 
3DELPR, PASS, IPC,LOPC, ISS NTCP 

NTCP 

COMMON /SINPUT/ NTCP 

1 PTPS ,PT IN, TT IN, WAI R » FA IR »DELC, DELL , DEL A, AACS, VCTD»STG, SECT » E XPN, NTCP 
2EXPP » EXPRE » RG» RPM, PAF, SL I » STGCH, ENDJOB , NAME IIO), TITLE! 10) , NTCP 


3PCNH(6) , GAM (6, 8) ,DR(6,8) ,DT 1 6, 8 ) , R WG ( 6 , 8 ) , ALPHAS < 6, 8 ) , AL PHA1 ( 6 , 8 ) , NTCP 
4ETARSI6,8) , ETAS <6,8 ),CFS (6,8)# ANDO (6, 8) ,BETA1 (6,8) #BETA2 (6,8) ,ETARNTCP 
5R{6,8) ,ETAR( 6,8) ,CFR(6,8 ) ,TFR(6,8) , ANDOR < 6, 8 I , OMEGAS 1 6 # 8 ) , ASO { 6 , 8 ) NTCP 
6,ASMP0I6,8) , ACMN0(6,8) , All 6,8) ,A2( 6,8) ,A3(6,8) , A4{6,8) ,A5I6, 8) , A6I NTCP 
76,8) ,OMEGAR{ 6,8) ,BSIA( 6, 8) ,BSMPIA( 6, 8) , BCMNI A 1 6 , 8 ) , Bl< 6, 8 ) ,B2(6,8)NTCP 


8,B3(6,8),B4{ 6,8} ,85(6,8) ,861 6, 8 ) , SESTHI ( 8 ) ,RERTHI (8) NTCP 

NTCP 

REAL MR2 , M2 #MF2 NTCP 

COMMON /SFLOW2/TS2 ( 6, 8 ) , CP2 ( 8 ) ,R2 C 6, 8 ) ,RH0S2(6,8) ,BET2E(6,8) ,RU2(6NTCP 
1 , 8 ) , VU2 { 6 , 8 ) ,DPDR2(6,8),VZ2(6,8) ,MR2 ( 6 , 8 ) ,MF2 ( 6 , 8 ) , M2 ( 6, 8 ) NTCP 

NTCP 

DIMENSION CS ( 8 ) , CR ( 8 ) NTCP 

NTCP 

NTCP 

CALL SLITE(O) NTCP 

WA IR=0 • 0 NTCP 

F A I R=0 • 0 NTCP 

PTPS=1 • 02 NTCP 

DELC=0 . 0 NTCP 

DELL=0.0 NTCP 

D6LA=0.0 NTCP 

EXPN=2.0 NTCP 

EXPP=2.G NTCP 

EXPRE=0.0 NTCP 

RG=0 .0 NTCP 

PAF=0. 0 NTCP 

SL I =0. 0 NTCP 

AACS=1 • 0 NTCP 

SECT =1.0 NTCP 

VCTD=0.0 NTCP 

WT0L=1 • E-04 NTCP 

RH0TQL=l.E-04 NTCP 

PRT0L=1 • E-06 NTCP 

PCNHtl)*1.0 NTCP 

GAM ( 1 , 1 ) =0 . 0 NTCP 

RWG (1,1)=1.0 NTCP 

ETAS l 1 , 1 ) =0 . 0 NTCP 

ALPHA1 ( 1, 1 ) =0 . 0 NTCP 


000 

001 

002 

003 

004 
0C5 
006 

007 

008 

009 

010 

011 

012 

013 

014 

015 

016 

017 

018 

019 

020 
021 
022 

023 

024 

025 

026 

027 

028 

029 

030 

031 

032 

033 

034 

035 

036 

037 

038 

039 

040 

041 

042 

043 

044 

045 

046 

047 

048 

049 

050 

051 
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ETAR(1,1)=0.0 
BET A2( l, 1 )=0.0 
TRLOOP=0 . 

TRD I AG=0 o 0 
G=32. 17405 
A J=778 .161 
1C AS E = 0 

1 PREVER =®FALSE. 

CALL INIT 

I SC ASE=0 

IF ( PREVER ) GO TO 1 
DO 25 1=1,8 
CS< I ) = 0.0 
25 CR { I > = 0.0 
PASS =0 

2 PRPC=CS ( KN ) 

CALL STA01 

IF (PREVER) GO TO 40 
I F ( I CHOKE • NE . 0 ) GO TO 3 
I F ( SCRIT-EQ. 1. ) SC=SC+1. 

3 CALL ST^IA 

IF (PREVER) GO TO 40 
LOPI N=0 

4 JUMP =0 
PRPC=CR ( KN ) 

CALL STA2 
CR( KN) =PRPC 

IF (PREVER) GO TO 40 
IF ( l.~MF2( 1,KN) )24,5,5 

5 IF ( JUMP ) 6 , 6 , 20 

6 CALL S T A 2 A 

IF (PREVER) GO TO 40 
IF ( KN-KSTG ) 7 , 9, 9 

7 KN=KN+1 
LOP I N=0 

8 JUMP=0 
PRPC =C S ( KN ) 

CALL STA1 
CS ( KN ) =PRPC 

IF (PREVER) GO TO 40 
IF { JUMP ) 3, 3, 20 

9 CALL OVRALL 

IF (VCTD)ll, 11,10 

10 CALL INSTG 

11 PASS = 1 o 

I c ( TRD I AG >13,13,12 

12 CALL DIAGT(O) 

13 IF ( lo-MFST0P)24,24, 14 

14 IF ( DELC ) 24 , 24 , 1 5 

15 IF (DELL) 17,17, 16 

16 IF(DELPR)24,24, 18 

17 IF ( CHOKE ) 24, 18, 24 

18 ISCASE=ISCASE+1 


NT CP 052 
NTCP 053 
NTCP 054 
NTCP 055 
NTCP 056 
NTCP 057 
NTCP 058 
NTCP 059 
NTCP 060 
NTCP 061 
NTCP 062 
NTCP 063 
NTCP 064 
NTCP 065 
NTCP 066 
NTCP 067 
NTCP 068 
NTCP 069 
NTCP 070 
NTCP 071 
NTCP 072 
NTCP 073 
NTCP 074 
NTCP 075 
NTCP 076 
NTCP 077 
NTCP 078 
NTCP 079 
NTCP 080 
NTCP 081 
NTCP 082 
NTCP 083 
NTCP 084 
NTCP 085 
NTCP 086 
NTCP 087 
NTCP 088 
NTCP 089 
NTCP 090 
NTCP 091 
NTCP 092 
NTCP 093 
NTCP 094 
NTCP 095 
NTCP 096 
NTCP 097 
NTCP 098 
NTCP 099 
NTCP 100 
NTCP 101 
NTCP 102 
NTCP 103 
NTCP 104 
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19 JL={ ISORR-1 ) *8+LSTG 
IFISC.EQ.l.) DEL PR=DELL 

PT0PS1 ( IP, JL )=PTOPSl { IP, JL1+DELPR 

20 LOP I N= 1 
KN = L STG 
IRROLBRC 
IPC = 0 

IF { KN- 1)21,21,22 

21 IF ( ISORR-1 )2, 2, 4 

22 IF ( ISORR-1 )8, 8, 4 
40 WRITE ( 6, 106 ) 

24 IF ( ENDJ08-1. )1, 23,23 

23 CALL EXIT 

106 FORMAT {// 3 X65HTHE PREVIOUS CASE HAS 
1- CHECK DUMP. ) 

STOP 

END 


NTCP 105 
NTCP 106 
NTCP 107 
NTCP 108 
NTCP 109 
NTCP 110 
NTCP HI 
NTCP 112 
NTCP 113 
NTCP 114 
NTCP 115 
NTCP 116 
NTCP 117 

BEEN TERMINATED DUE TO ERRORS NTCP 118 

NTCP 119 
NTCP 120 
NTCP 121 
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APPENDIX 3B 


tIBFTC 

CINIT 


INIT 


FULIST, DECK, SOD 


SUBROUTINE 

SUBROUTINE 


FOR INITIALIZATION 
INIT 


OF INPUT DATA 


REAL MFSTOP 
LOGICAL PREVER 

COMMON /SNTCP/G, AJ,PRPC, ICASE, PREVER, MFSTOP, JUMP, LOP IN, I SC AS E. 

IKN , GAME ,IP,SCRIT »PTRN, 1SECT ,KSTG, WTOL , RHOTOL , PRTOL , TRLOOP, LSTG, 
2LBRC , I BRC , I CHOKE , I SORR , CHOKE , PTOPS 1 {-6, 8 ) , PTRS2 ( 6 , 8 ) , TRD I AG , SC , RC , 
3DELPR,PASS, IPC,LOPC, ISS 


INIT 

INIT 

INIT 

INIT 

INIT 

INIT 

INIT 

INIT 

INIT 

INIT 

INIT 

INIT 


COMMON / S I N I T / H 1 ( 6 , 8 } , H2 t 6 , 8 ) , DP 0 1 6 , 8 ) , DPI (6,8) , DPI A 1 6, 8) , DP 2(6, 8) INIT 
1,DP2A(6,8) »CSALF1(6»8) » ALF1 ( 6, 8 ) ,CSBET2 ( 6, 8 ) ,BET2(6,8) ,RADSD(6,8), INIT 


2RADRD ( 6,8) , ANN1(6,8) , ANN 2 (6, 8) ,ANN2A(6»8) ,ANNlAt6,8) »U1A(6,8), 
3U2 ( 6,8 ), ANNO (6,8 ) , PTO { 6, 8 ) , TTO ( 6, 8 ) , ALPH AO ( 6 , 8 ) , PTP ( 6 , 8 } 


INIT 

INIT 

INIT 

INIT 

INIT 

INIT 


8 s B3(6,8),B4(6 ? 8) s B5(6,8),B6(6,8},SESTHI{8) ,RERTHI (8) 

DIMENSION HI A (6, 8) , HO (6,8) »H2A(6,8) 


COMMON /SINPUT/ 

1PTPS ,PT IN, TT IN, W AIR, FAIR ,DELC, DELL ,DELA , AACS, VCTD, STG, SECT, EXPN, 

2 EXPP , EXPRE , RG, RPM, PAF , SL I , STGCH, END JOB ,NAME ( 10 ) , TITLE! 10) , 

3PCNHC6) , GAM (6, 8) ,DR(6,8) , DT ( 6, 8 ) , RWG ( 6 , 8 } , AL PHAS ( 6, 8 ) , ALPH A1 ( 6 , 8 ) , INIT 
4ETARS(6»8),ETAS( 6,8) » CF S ( 6 , 8 ) , ANDO ( 6 , 8 ) , BETA1 ( 6 , 8 ) , BET A2 ( 6 , 8 ) , ET AR IN I T 
5R(6,8),ETAR(6,8},CFR(6,8),TFR(6,8) , ANDOR ( 6, 8 ) , OMEGAS (6,8 ),AS0(6»8HNIT 
6,4SMP0(6,8 ) , ACMN0(6,8) ,A1( 6,8) , A2 ( 6, 8 ) , A3 ( 6, 8 ) , A4 ( 6, 8 ) , A5 ( 6, 8 ) , A6 ( IN I T 
76,8) ,QMEGAR( 6,8) ,BSIA(6, 8) ,BSMPIA(6,8) ,BCMNI A(6,8) ,B1(6,8) ,82(6,8) INIT 

INIT 
INIT 
INIT 
INIT 

READ INPUT DATA, CHECK FOR ERRORS, INIT 

SKIP CHANGE CASES IF BASIC CASE HAS AN ERROR INIT 

3 CALL INPUT * NIT 

ICASE= ICASE+1 INIT 

IF(STGCH) 5, 5,4 INIT 

4 I K = 1 INIT 

5 CALL CHECK ( L ) INIT 

GO T 0 ( 6 , 8 ) , L INIT 

6 WRITE! 6,100) ICASE INIT 

iF{ STGCH) 3, 3,7 INIT 

7 I K=2 INIT 

GO TO 3 INIT 

8 IF ( IK— 2 ) 9, 3, 3 INIT 

INITIALIZE INDEX REGISTERS AND FORKS INIT 

9 ISECT=SECT+.0001 INIT 

KSTG= STG + o 0001 INIT 

L0PC=0 INIT 

CHOK E=0<, INIT 

ICHOKE=0 INIT 

I SORR= 1 INIT 

KN=L INIT 

LSTG=1 INIT 

I BRC= 1 !N IT 


000 

001 

002 

003 

004 

005 

006 

007 

008 

009 

010 

011 

012 

013 

014 

015 

016 

017 

018 

019 

020 
021 
022 

023 

024 

025 

026 

027 

028 

029 

030 

031 

032 

033 

034 

035 

036 

037 

038 

039 

040 

041 

042 

043 

044 

045 

046 

047 

048 

049 

050 

051 
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c 


c 

c 


LBRC=1 
D£LPR=DELC 
SC=O.Q 
RC=Q.O 
PRPC=0 . 0 
IPC = 0 
ISS = 0 
PTRN=O.Q 


TEST STAGE LOSS INDICATOR 
I F ( S L I ) 13 ,1 3 1 1 1 

11 DO 12 I=1,ISECT 
DO 12 J=1,KSTG 
ETARSI I* J ) =ETARS ( I , 1 ) 

ETAS 1 1 , J )=ETAS ( 1,1) 

CFS ( I * J ) =CFS ( 1,1) 

ETARR1 I,J)=ETARR(I,1) 

ETARd,J)=ETARd,l> 

CFR { I, J ) =CFR (1,1) 

TFR I I, J)=TFR( 1,1) 

12 CONTINUE 

TEST FOR EQUAL SECTORS 

13 IFtPCNHUI-l. ) 16,14,14 

14 DO 15 1 = 1, I SECT 

15 PCNH d ) = 1. /SECT 

SET UP SECTOR HEIGHT, PITCH DIAMETER, ANNULUS AREA, 
PITCHLINE WHEEL SPEED 

16 DO 19 K= 1 , K S TG 

SHO = DT { 1 , K ) -DR { 1 , K ) 

SHI =DT ( 2 , K ) -DR { 2, K ) 

SH1A=DT( 3,K)-DR(3,K) 

SH2=DT (4,K)-DR(4»K) 

SH2A=DT(5,K)-DR(5,K) 

DO 18 I =1 , I SECT 
HOI I,K)=„5*PCNH!I)*SHO 
HI ( I , K ) = . 5«PCNHI I ) *SH1 
HI At I,K)=.5*PCNH( I ) *$H 1 A 
H2( I ,K)=.5*PCNH( I)*SH2 


20 


21 


HOI I ,K ) 
Hid ,K) 
H1A (I,K) 
H2( UK) 
H2A ( I , K ) 


H2 A l I,K )=„5*PCNHt I ) 

I F { 1-1 ) 20,20, 17 
DPO ( I,K } = DR1 1, K > + 

DPI I I,K)=DR(2,K)+ 

DPlAd,K)=DR(3,K) + 

DP2 { I,K)=0R(4,K)+ 

DP2 A ( I,K) -DR I 5, K ) + 

GO TO 21 

17 DPO ( I » K ) = HO ( I- 1 , K ) + 

DPI ( I , K ) = Hl(I-i,K)+ 

DP 1 A d , K } = H1A( I-1,K) + 

DP2 ( I, K ) = H2(I-1,K)+ 

DP2A { I, K ) = H2A{ I — 1 , K ) +- n 

ANNOd ,K) = .02182*DP0t I,K )*HOC I ,K) 
ANN1 d,K) = .02182*DPld,K)*Hl(i,K) 
ANNIAt I , K ) =DP 1 A ( I , K ) *H1A ( I, K ) * . 021 82 


H0( UKUDPOU-UK) 

HKI ,K)+DP1(I-1,K) 

HlAt I, K ) +DP1 A ( I -1 *K I 
H2(I ,K)+ DP 2(1-1, K) 

H2 A ( I,K) +DP2A ( I- 1, J 1 


INIT 052 
INIT 053 
INIT 054 
INIT 055 
INIT 056 
INIT 057 
INIT 058 
INIT 059 
INIT 060 
INIT 061 
INIT 062 
INIT 063 
INIT 064 
INIT 065 
INIT 066 
INIT 067 
INIT 068 
INIT 069 
INIT 070 
INIT 071 
INIT 072 
INIT 073 
INIT 074 
INIT 075 
INIT 076 
INIT 077 
INIT 078 
INIT 079 
INIT 080 
INIT 081 
INIT 082 
INIT 083 
INIT 084 
INIT 085 
INIT 086 
INIT 087 
INIT 088 
INIT 089 
INIT 090 
INIT 091 
INIT 092 
INIT 093 
INIT 094 
INIT 095 
INIT 096 
INIT 097 
INIT 098 
INIT 099 
INIT 100 
INIT 101 
INIT 102 
INIT 103 
INIT 104 
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ANN 2 t l ,K) = o02182»DP2I I *K)*H2CI *K) 

ANN2 A { I»KJ = c02182*0P2A( I ,K I *H2 A 1 1 * K I 
U1AI I,K ) = 3. 1A 15 9* DPI A { I * K ) *RPM/720» 

U2U*K) = 3.14159*DP2tI*K)*RPH/720. 

18 CONTINUE 

19 CONTINUE 

C DEFINE PITCHLINE INDEX 

I T = I SECT-2* J I SECT/2 3 
IF( 11)22*22*23 

22 I P= I SECT/2 
GO TO 24 

23 I P= C ISECT+U/2 

C CALCULATE INLET AND EXIT ANGLES IN RADIANS 

24 IF CALPHAnifl))25*25*27 

25 SDEAF-Oo 

DO 26 K = 1 » KSTG 
DO 26 1 = 1*1 SECT 

CS ALF 1 { I * K ) = ANDO 1 1 » K ) *CF S ( I *K ) / ( SESTHI ( K ) *3 • 141 59*DP 1 1 I * K ) * 

1SQRT ( ETAS { I » K H ) 

26 ALF1 ( I * K ) = t ATAN2( SQRTC 1 o-CSALFl ( I »K )*CSALF1 ( I.*K ) ) ,CSALF1 { I » KJ) 

GO TO 31 

27 DO 28 K=WKSTG 
DO 28 I=1,ISECT 

AL.F1 f I * K I = ALPHAl f I t K}*. 017453 

28 CSALF1C I,K )=COS( ALF It I»K) ) 

31 IF {BETA2tl* 1))29«29*32 

29 RDEAF^Oo 

DO 30 K = 1 * KSTG 
DO 30 I=1 5 ISECT 

CSBET2!IsK) :;:: ANDOR{I*K}*CFRCI*K3/(RERTHHK3*3.14l59*DP2(I»K)* 

1SQRTCETARU S K5 )) 

30 BET2 { I $K3=ATAN2f SORT U . -CSBET2 U * K ) *CSB ET2 il * K ) I ,CS8ET2 ( I *K ) ) 
GO TO 34 

32 DO 33 K = l « K STG 
DO 33 I“'lfIShCT 

B E T 2 ( I f K)= 8ETA2U ,KJ*. 017453 

33 CSBET2I I*K)=C0S(BET2U*K)) 

34 DO 35 K=1»KSTG 
DO 35 1 = 1* I SECT 
PIPS I,K)=PTIN 
PTOC I * K 3 = PT I N 
TTOC I * K J =TT I N 
ALPHAOt I * K 1 = 0 o 0 
PT0PS1I I*K)=PTPS 

RADS DC I ?K 3 “ALPHAS! I , K ) * . 01 7453 

35 RADRD ( I *K ) =B0TA1 ( I *K )*.0 17453 
I F { RG ) 36* 36 » 37 

36 CALL R(PTIN,TTIN*FAIR,WAIR,RG) 

GAMF^OoO 

GO TO 38 

37 GAMF=1 o 0 

38 CALL CHECK i J ) 

GO TO i 39, 40) 9 J 
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39 GO TO 3 
AO RETURN 

00 FORMAT ( 28X*6HCAS£ I5*13H HAS AN ERROR) 

END 


IN I T 158 
INIT 159 
IN IT 160 
INIT 161 
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APPENDIX 3C 


HBFTC INPT FUL 1ST, DECK, SDD INPT 00(. 

C INPUT !NPI 001 

SUBROUTINE INPUT INPT 00^ 

(>«ttejfs#e**#***JMM(ft*«#»ft»#*»*»#«****» s **** # *»*** f< * ft ********* # * 4frS ‘****** <l INPT 00 1 

C INPT 00^ 

REAL MFSTGP INPT 005 

LOGICAL PREVER INPT OC^ 

COMMON /SNTCP/G. AJ . PRPC . ICASE . PREVER, MF STOP. JUMP. LOP I N . I SC AS E . INPT 001 

1KN.GAMF, IP? SCRIT,PTRN» I SECT.KSTG , WTOL . RBOTOL , PRTOL . TRLOO P , LSTG, INPT OOf 

2LBRC.IBRC, I CHOKE, I SORR 9 CHOKE , PTGPS1 ( 6. 8 ) 9PTRS2C6.8) ,TRDI AG.SC.RC, INPT 005 

3DELPR.PASS, IPC.LOPC.ISS INPT OK 

C . INPT Oil 

COMMON /S INPUT/ INPT OK 

IPTPS.PT IN,TTIN,WAIR,FAIR,DELC.,DELL,DELA,AACS,VCTD,STG, SECT ? EXPN* INPT OK 

2EXPP,EXPRE,RG,RPM,PAF,SL I » STGCH. END JOB , NAME i 10 ) .TITLE! 10) , INPT OK 

3PCNH { 6 3 v GAM (6,8),SR(6,8),ST(6,8),SWG{6,8) .ALPHAS ( 6,8 ) , ALPHA1 {6,8 ) , INPT 01* 


A ETARS I 6. 8 ) 9 ETASt 6. 8 ) *CFS ( 6 » 8) , ANDO! 6,8 ) » BETA1 4 6 » 8 ) .BET A2 (6 .8 ) , ETARINPT OK 
3 R { 6 , 8 ) , ETAR< 6, 8) ,CFR ( 6 , 8 ) » TFft C 6, 8 ) . ANDOR { 6.8 ) .OMEGAS 16 ,8 ) . AS0(6,8) INPT 01' 
6 , ASHPO l 6 j 8 } 9 ACMNOt 6, 8 ) , A1 ( 6.8) fA2{6,8),A3I6,8).A4f6.8) ,A5C6,8).A6CINPT- 01? 
76,8) ,0MEGAR{6,8),ftSIA{6,8),&SMPlA(6,8} ,BCMNI A( 6 , 8 ) ,Bl ( 6, 8) ,B2(6,8)1NPT 01< 


8,B3(6,8),B4{6,8),B5(6,8) ,B6 C 6. 8 ) , SESTH I C 8 ) , RERTH I { 8 I INPT 02( 

c inpt 02: 

DIMENSION XI 69 8.37KYI6.37) INPT 02; 

C \ INPT 02: 

EQUIVALENCE < X { i . 1 , 1 5 , GAM I 1 , 1 H » i Y «1 . 1 ) , GAMG C 1 ) 5 INPT 02' 

r INPT 02! 


COMMON GAMG (6).DR(6)9DT{6) . RWG {6) » SO I A i 6 ) , SDEAS 6) ,SRECf6KSETAC6KINPT 02< 
1SCF*6) ,SPA(6),RDIA{6) .RDEAC6) .RRECI6) ,RETA(6) .RCFI6) .RTF 16 ) »RPA( 6) INPT 02' 
2 t STPLC (65, SINRC6). SINMPC 6) , S INMN ( 6 ) , SCPS C 6 ! , SCPC C 6 ) , SC PQ i 6 i , SCNS ( 6 INPT 02.1 
3) ,SCNC(6) ,SCNQ(6),RTPLC<6) .RINRI6) , R I NMP i 6 ) , R I NMN l 6 ? ,RCPS C 6 ) »RCPCC INPT 02^ 
46),RCPQ(6),-RCN$(6),RCNCI6),RCNQ{6) INPT 03? 

INPT 03 

NAMELIST/DAT A IN/ PTPS, PT IN. TTI N, WA IR ,FAI R.DELC.DELL, DELA , AACS, VCTDINPT 03, 
I » STG, SECT, STAGE, EXPN.EXPP, EXPRE .RG.RPM.PAF, SLI .ENDSTG. ENOJOB.PCNH, INPT 03 
ZGAMGfDR.DT.RWG.SDIA.SDEAjSREC. SETA , SCF , SPA, ROI A , ROE A.RREC , RETA.RCF INPT 03- 
3.RTF ,RPA. STPLC, SINR.SINMP, SI MMN. SCPS, SCPC. SCPQ. SCNS, SCNC.SCNQ.RTPL INPT 03' 
4C, R I NR, RINMP.RINMN.RCPS.RCPC.RCPO.RCNS.RCNC.RCNQ, SESTH, RERTH, INPT 03* 

5WTOL,RHOrOL,PRTOL,TRLOOP,TRDIAG,STGCH INPT 03 

INPT 03! 

DATA BLANKS/66666666/ INPT 03' 

INPT 04i 
INPT 04 


READ THE HEADING CARDS EVERY TIME ENTRY IS MADE INPT 04! 

10 READ ( 5 . 6669 ) ( NAME { 1) , 1= 1, 10 ) INPT 04 

20 READ (6.6669) ( T I TLE (I) , I =1 , 10 ) INPT 04- 

j = 0 INPT 04' 

30 DO 2 5 L = 1 » 37 INPT 04- 

DO 23 1*1,6 INPT 04 

25 Y ( I , L ) -BLANKS INPT 04; 

SESTH=BLANK.S INPT 04' 

RERT H=BLANKS INPT 05' 

RE AD ( 5 . DAT AIN) INPT 05 
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40 K=STAGE+ • 0001 INPT 

50 ISECT=SECT+.0001 IMPT 

60 DO 80 L = 1 » 37 I NPT 

70 DO 80 1 = 1,6 INPT 

IF t Y< I ,L) .NE. BLANKS) GO TO 71 INPT 

Y ( I , L ) =0 . 0 INPT 

GO TO 80 INPT 

71 X ( I * K, L ) =Y ( I , L ) INPT 

80 CONTINUE INPT 

IFISESTH.EQ. BLANKS) GO TO 95 INPT 

90 SESTHI (K)=SESTH INPT 

GO TO 96 INPT 

95 SESTH=0. INPT 

96 IF(RERTH.EQ. BLANKS) GO TO 105 INPT 

100 RERTHI {K)=RERTH INPT 

GO TO 110 INPT 

105 RERTH=0. INPT 

110 IF (K-l ) 120, 120, 130 INPT 

120 WRITE! 6, 6670 )NAME, TITLE, TT IN, PTI N, WA I R f FAIR, PTPS , DELC, DELL , DEL A, INPT 
ISTG,SECT,EXPN,EXPP,RG,PAF,SLI , AACS , R PM , VCTD , EXPRE , ENDS TG , END JOB , INPT 

IPCNH INPT 

J=J+1 INPT 

130 WRITE(6,6671 ) K , GAMG, DR, DT, RWG, SD I A , SDEA, SREC , SETA, SCF, SPA, INPT 
1SESTH, INPT 

1 RD I A, RDE A, RREC, RET A, RCF, RTF, RP A, RERTH INPT 

140 IF (OMEGAS! 1,K )) 160, 160, 150 INPT 

150 WRIT£(6,6672)STPLC»S I NR , SINMP, SI NMN, SC PS » SC PC* SCPQ, SCNS » SCNC,SCNQ, INPT 
1RTPLC,RINR , RINMP ,R INMN,RCPS,RCPC ,RCPQ,RCNS»RCNC , RCNQ INPT 

160 J=J+1 INPT 

180 AM= J-2MJ/2) INPT 

190 IF(AM)200,210,200 INPT 

200 WRITE! 6,6673) INPT 

210 IF (ENDSTG-1. >30,170,170 INPT 

170 RETURN INPT 

6669 FORMAT! 10A6) INPT 

6670 FORMAT ( 1H1 , 24X , 24HTURB I NE COMPUTER PR0GRAM/6X, 10A6/6X , 10A6/2X, INPT 

17H»DATAIN/2X7H TT I N=F 1 0 . 3 , IX , 7H PT I N=F 10. 3 , 1 X , 6H WAI R=F10. 3, IX, INPT 
2 5HFA IR=F10.3/2X» 7H PTPS=F10. 3 , IX, 7H DELC=F 10 . 3 , 1 X , 6H DELL=F10. 3, INPT 
31X,5HD£LA=F10.3/2X,7H STG=F10 . 3 , IX , 7H SECT=F 1 0 . 3 , 1 X , 6H EXPN=F10INPT 


052 

053 

054 

055 

056 

057 

058 

059 

060 
061 
062 

063 

064 

065 

066 

067 

068 

069 

070 

071 

072 

073 

074 

075 

076 

077 

078 

079 

080 
081 
082 

083 

084 

085 

086 

087 

088 

089 

090 


4.3, IX, 5HEXPP=F10.3/2X,7H RG=F 10 . 3 , 1 X , 7H PAF=F1 0 . 3 , 1 X , 6H SLI=INPT 091 

5F10.3, 1X,5HAACS=F10.3/2X,7H RPM=F 10. 3 , IX, 7H VCTD=F1 0. 3, IX ,6HEXP INPT 092 
6RE=F10.3/2X,7HENDSTG=F10.3,1X,7HENDJ08=F10.3,1X/25X,21HINLET RADI AINPT 093 
7 L PR0FILES/2X, 5HPCNH=6 !F8.3,2X)/1H1) INPT 094 

6671 F0RMAT128X, 15HSTANDARD OPT I ON/ 3X, 6HSTAGE = I 3 , 2 1 X , 1 4HAXI AL S TA T I ONS/ INPT 095 
1 10X, 6HSTA . 04X , 6HSTA . 14X, 6HSTA. 1A4X,6HSTA. 23X,7HSTA. 2A/ INPT 096 

33X , 6H GAMG=6(F8.3,2X)/3X,6H DR=6 ( F8. 3 , 2X ) /3X , 6H DT=6 (F8. 3, 2X ) / INPT 097 
33X,6H RWG=6!F8.3,2X)//22X,27HSTAT0R RADIAL DISTRIBUTIONS/ INPT 098 

411X,4HR00T,5X,5HPITCH,6X,3HTIP,8X,19H!F0R THREE SECTORS)/ INPT 099 

5 3X , 6H SDIA = 6(F8.3,2X)/3X,6H SDE A=6 ( F 8 . 3 , 2X ) /3X , 6H SREC = 6 ! F8 . 3, 2X ) / INPT 100 
63X,6H SETA=6(F8.3,2X)/3X,6H SCF=6 ( F8 . 3 , 2X ) /3X , 6H SPA=6 ! F8 . 3, 2X ) / INPT 101 
73X,6HSESTH=F8.3//23X,26HR0T0R RADIAL DISTRIBUTIONS/ INPT 102 

8 3X , 6H RDIA=6(F8.3,2X)/3X,6H RDEA = 6(F8.3,2X)/3X,6H RREC=6 ( F8. 3, 2X ) / INPT 103 
93X, 6H RETA=6!F8.3,2X)/3X,6H RCF=6 ( F8 . 3 , 2X ) /3X , 6H RTF=6 ! F8 . 3, 2X ) / INPT 104 
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6672 


6673 


13X,6H RPA=6(F8.3,2X)/3X,6HRERTH=1F8„3/I IUP T 105 

FORMAT ( /25X » 23HL0SS COEFFICIENT OPTI ON/22X, 27HSTAT0R RADIAL DISTR1INPT 106 

1 BUT I ONS/ INPT 107 

23X,6HSTPLC=6(F8.3,2X)/3X,6H S I NR=6 { F 8. 3 , 2X ) / 3X » 6HS INMP=6 ( F8 . 3 , 2X I / INPT 108 
33X,6HSINMN=6(F8.3,2X)/3X,6H SC PS = 6 ( F 8. 3 , 2X ? / 3X , 6H SCPC=6 I F8 . 3, 2X ) / INPT 109 
4 3X * 6H SCPQ=6(F8.3»2X)/3X»6H SCNS = 6 ( F8» 3 » 2X } /3X » 6H SCNC-6 (F8® 3*2X5 / INPT 110 
53X,6H SCNQ=6{F8o3»2X)/023X»26H ROTOR RADIAL DISTRIBUTIONS/ INPT 111 

63X,6HRTPLC=6{F8o3,2X)/3X,6H RI NR=6 { F8 . 3 , 2 X ) /3X , 6HR I NMP=6 ( F8 . 3* 2X ) / INPT 112 
73X,6HRINMN=6(F8.3,2X)/3X,6H RC PS=6 ( F 8 . 3 , 2X ) /3X » 6H RCPC=6 i F8 . 3, 2X ) / INPT 113 
83X » 6H RCPQ = 6(F8.3,2X)/3X,6H RCNS = 6 { F 8 . 3 , 2 X ) /3X » 6H RCNC = 6 { F 8 - 3 , 2X ) / INPT 114 
9 3 X » 6 H RCNQ=6(F8.3 t 2X) ) INPT 115 

FORMAT ( 1H1 ) INPT 116 


END 


INPT 117 
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APPENDIX 3D 


FUL 1ST, DECK, SDD 


tIBFTC STO 1 

s rAOi 

ESTABLISH FIRST STATOR EXIT FLOW, ADJUST FLOWS FOR COOLING 
AIR INJECTION BETWEEN STATIONS 0 AND I, FIND INLET 
MACH NUMBER AND INCIDENCE ANGLE LOSS AT STATION O s 
ADJUST PT, GET NEW FLOW AT STATION 1 FOR FINAL RESULT. 
SUBROUTINE STA01 


ST 0 1 
ST 0 1 
STO I 
STO 1 
STO l 
STOl 
STO I 
STOl 
STOl 
STOl 
STOl 
STOl 
STOl 
STOl 
STOl 

COMMON /SINIT/HL(6,8),H2 (6,8),DP0(6,8) ,DP1(6,8) ,DP1M6,8) ,DP2(6,8 >STOl 
I , DP2 A { 6 , 8 ) ,CSALF1( 6, 8) ,ALF1 16,8) »CSBET2(6,8) »8ET2 (6,8) , R ADSD { 6 , 8 > , STO 1 


REAL MFS TOP 
LOGICAL PREVER 

COMMON /SNTCP/G, AJ.PRPC, ICA SE , PRE VER , MF S TOP , JUMP , LOP IN , I SC AS F , 

1 K,GAMF, IP,SCRIT ,PTRN, I S ECT , K S TG» WTOL , RHOTOL , PRTOL , TRLOOP, LS TG * 
2L8RC, IBRC? I CHOKE , I SORR , CHOKE , P TOPS 1 { 6 , 8 > , PTRS2 ( 6 » 8 ) , TR D I AG , SC , RC , 
3 DEL PR, PASS, IPC,LOPC, ISS 


2 R ADR D (6,8) » ANN 1(6, 8) ,ANN2(6,8) ,ANN2A(6,8) , ANN1 A ( 6 , 8 ) ,U 1 A ( 6 , 8 } 
3 U 2(6, 8), ANNO (6»8),PT0(6»8) ,TT0(6,8) ,ALPHA0(6,8) ,PTP(6,8) 


STOl 

STOl 

STOl 

STOl 

STOl 

STOl 


COMMON /S INPUT/ 

1 PTPS » PT I N » TT IN,WAIR,FAIR,DELC,DELL,DELA, AACS , VC TD , STG, SECT , E XPN , 

2EXPP,EXPRE,RG,RPM, PAF, SL I , STGCH , END JOB » NAME { 10 ) , T I TLE ( 10 ) , 
3FCNH(6),GAM{6,8i , DR ( 6 , 8 ) , DT { 6, 8 ) , R WG ( 6, 8 ) , ALPHAS { 6 , 8 ) , AL PH A1 ( 6 , 8 I ,ST01 
4 6TARSI 6,8 ) , ETASI 6,8 ) ,CF5 (6, 8) , ANDO (6, 8) , BETAI ( 6,8 > , BET A2 ( 6 , 8 ) , ET ARSTO 1 
jR( 6, 8 ) ,ETAR(6,8) ,CFR(6,8>,TFR(6,8) ,AND0R(6,8) , OMEGAS (6,85 , ASOt 6,8 IST01 
6 , ASMPO (6,8) , ACMNG(6,85 ,A1(6,8) ,A2(6,8),A3(6,8),A4(6,8) , A5 ( 6, 8 ) , A6( STOl 
76,8) , OMEGAR (6,8) ,BSIA(6,8) ,8SMPIA(6,8) ,BCMNIA<6,8) ,B1C6,8),B2I6,8)ST01 
8, B3( 6,8 ),B4( 6,8) ,85(6,8) , B6 ( 6, 8 ) , SE STH I ( 8 ) , RERTH I (8 I STOl 

STOl 

REAL MO STOl 

COMMON /SSTA01/CPC( 8) , PSO { 6 , 8 ) , VO i 6 , 3 ) , TSO ( 6 , STO 1 

18) , VU0(6,8 ) ,VZ0( 6,8) ,RH0S0(6,8 ) ,PS1 (6,8) , WGT I ( 8 ) , TA 1 ( 8 > , WG 1C 6 , 8 } , STOl 

2 DP DR 1(6, 8) , S H 6 » 8 ) , C P 1 ( 8 ) » PHU ( 6 , 8 }• , T S 1C 6 , 8 ) » V 1 C 6 , 8 ) ST 0 1 

3 » RHOS 1 (6,8) ,ALF1E(6,8J , VUlt 6 , 8 ) , VZ 1 ( 6, 8 ) , MO { 6 , 8 ) STOl 

STOl 

DIMENSION WGTO ( 8 ) , TAO( 8) ,WG0{6,8) ,TT0TS0(6,8) , PTOPSO ( 6 , 8 ) , f F AO ( 6 , 8ST0 1 


l ),AASOt 6,8) 


SCRI T=0 . 0 
l = IP 
I D = — 1 

WGTI CK )=0.0 
JW-1 

IF (GAMF 12,2,3 
TAlCK) = .-?5*TT0(lP,Ki 

CALL GAMMA ( PT IN, TA1!K) , F AI R , WA I R , G AM ( 2 , K ) ) 
CALL FLOWl(I) 

IF (PREVER) GO TO 26 
WGT1(K)=WGT1(K)+WG1( I,K) 

TEST FOR TIP SECTOR 


STOl 

STOl 

STOl 

STOl 

STOl 

STOl 

STOl 

STOl 

STOl 

STOl 

STOl 

STOl 

STOl 

STOl 

STOl 
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030 

031 

032 

033 

034 

035 

036 
0 37 

038 

039 

040 

041 

042 

043 

044 

045 

046 

047 

048 

049 

050 

051 
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I F C ISECT-I ) 5 * 5 » 4 

4 I = I > I D 

I F t I ) 6 9 6» 22 
22 L= I- ID 

PS1(I,K)=PS1( LpKJ+FLOATt ID)*DPDR1 ( L S K)*{ 

1H1 { I ,K ) +H1 ( L,K))/2. 

PT0PS1 ( I,Ki=PTO( I,K)/PS1(I«K) 

IF (PTOPSK )27,3 t 3 

27 PTRN=-1. 

PTQPS 1 { I » K ) = 1.0 
GO TO 3 

6 ID=1 

1= I P+I D 
GO TO 22 

C CALCULATE STA 0 FOR INCIDENCE CORRECTION 

5 IF { JW-U16, 16„18 

16 I F {GAME ) 7? 7 j 1 7 

7 GAM (lyK)=GAM(2»K) 

17 EX={GAMlljK)-l. )/GAM!l»K$ 

EXI=1./EX 

WGT0(K)=WGTUKJ/RWG(2 S KI 
1= IP 

WGO! I s K > =WG1 { I*K)/RWG!2„K$ 

FF^O ( I ? K ) =WGO C 1 s K ) *SQRT { TTO ( I , K } I / ( 144. *PTO « I , K ) * 

1 ANNO 5 I »KI) 

19 J=1 

8 CALL PRATIO(FFAOU 8 K>vGAMCl,K) 9 RGtPTOPSO(l9K) 9 PRTOL) 
PSO( I,K}=PTP( I,K i/PTOPSOU «K) 

TT OT SO ( I t K 3=PT0PS0U vK)**EX 
TSO( I,K)=TTO{I 9 KI/TTOTSO(I # K) 

9 I F { GAME ) 10,10,12 

10 TA0(K) = .5*(TT0U,K)+TS0( I,K>) 

CALL GAMMA! PTIN S TAOtK ) , FAIR , WA IR,GAM( l ,K ) ) 

EX=(GAM! 1*K)-1 0 )/GAM!lpK) 

EX I =1 . /EX 

IF{ J-l )11, 11, 12 

11 J = J+1 
GO TO 8 

12 CPO(K)=RG*EXI/AJ 
DO 14 I=1,ISECT 

WGO ( I S K)=WG1!I*K)/RWG{ 2vKi 
PTOMO= PT 0 { I ,KI 

FFAO(I»Kl=WGO{ I 9 K J «SQRT ! TTO ! I , K )) / ( 144.*PT0 ! I , K i * 
1 ANNO { I » K ) ) 

I F { I .EQ. I P 5 GO TO 28 
PSO { 1 9 K J = PSOCIPsK) 

PTOPSO l I ? K I = PTP1UKJ/ PSO!I»K) 

28 TTOTSOU,K)=PTOPSOU,K)**EX 
TSO ( IsK)=TTO( IjKJ/TTOTSOIIsK) 

13 VO! i s KI=SQRT!2.*G*AJ«-CP0!K)*!TT0(I ,K)-TSO(I*K) ) ) 
A'ASO! I,K) = SQRTtGAMC 1 ,K )*G*RG*TSOI I ,K) ) 

MO C I ,K J=VO ! I,KI/AASO(I,K) 

SI (I,K)=ALPHAOII,K)“ RADSD(I,K) 
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IF(SI( I, K) >24,24*20 

ST01 

105 

24 

EX PS = EXPN 

ST01 

106 


GO TO 21 

ST 01 

107 

20 

EXPS=EXPP 

ST01 

108 

21 

PTOPSOI ItK) = { l. + EX*M0 ( I t K ) *ETARS { I , K ) *GAM ( 1 , K ) *M0 ( I , K > /2 . 

ST01 

109 


I*(COS( SI ( I ,K ) ) **EXPS ) )**EXI 

STO 1 

110 


PTO ( I,K } = PSO{ I ,K)*PTOPSO ( I ,K) 

STO 1 

111 


WGO ( I,K)=WGO( I,K)*PTO(I,K) /PTO MO 

ST 0 1 

112 


WGH I»K)=WG1 ( I ,K )*PTG< I * K ) /PTOMO 

STO 1 

113 


RHOSO ( I»K)=144.*PS0(I,K)/( RG*T SO ( 1 ,K) ) 

ST01 

114 


VUO{ 1,K)=V0( I,K)*SIN(ALPHAO{ I,K) ) 

STO 1 

115 


VZOI I,K )=V0( I,K)*COSIALPHAOI I,K) ) 

ST01 

116 

14 

CONTINUE 

ST01 

117 


END OF INCIDENCE LOSS CORRECTION LOOP 

ST01 

118 


WGT 1 IK ) =0 . 

ST01 

119 


I = IP 

STO 1 

120 


I D=- 1 

STO 1 

121 


JW=2 

STG1 

122 

15 

GO TO 3 

STO 1 

123 

18 

CONTINUE 

ST 01 

124 


WGTO (K )=WGT 1 <K)/RWG12»K) 

ST01 

125 


I F ( TRLOOP* EQ . 0 . ) GO TO 23 

ST01 

126 


WRITE I 6, 1000) WGTO(K) V WGT1(K) » ( WGO (L ,K J , L=1 , ISECT > 

ST01 

127 


wRIT£( 6, 1001 > (PTOPSO(L,K) ,L=1, ISECT) 

STO 1 

128 


WRITE! 6, 1002) (WG1(L»K) ,L=1, ISECT) 

STO 1 

129 


WRITE (6, 1003) (PT0PS1 (L*K) ,L=1, ISECT) 

ST01 

130 

1000 

FORMAT ( 2X * 6H WGT0=F8 . 3 , 2 X , 6H WGT1=F8 . 3/2 X , 6H WG0=6F8.3) 

ST01 

131 

1001 

FORMAT { IX, 7HPT0PS0 = 6F8<>5 ) 

STO 1 

132 

1002 

FORMAT ( 2X » 6H WG1=6F8.3) 

STO 1 

133 

1003 

FORMAT! IX, 7HPT0P SI =6F 8.5 ) 

ST01 

134 

23 

CALL CHECK (J) 

STO 1 

135 


GO TO 125, 26), J 

STO 1 

136 

25 

CALL DIAGT(l) 

ST01 

137 

26 

RETURN 

ST 0 1 

138 


END 

ST01 

139 
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APPENDIX 3E 


$ 1 BFTC FLW 1 
CFLOW I 


FULIST, DECK, SOD 


ESTABLISH VALUES FOR STATOR EXIT FLOW 
SUBROUTINE FLOW1 1 I ) 


FLW I 
FLW1 
FLW1 
FLW1 
FLWl 
FLW 1 
FLWl 
FLWl 
FLWl 


REAL MFSTOP 
LOGICAL PREVER 

COMMON /SNTCP/G»AJjPRPC? IC A SE » PREVER , MFS TOP « JUMP , LOP IN 9 ISCASE, 

1 K 9 GAMF 9 IP, SCRIT,PTRN, I SECT ,KSTG, WTOL , RHOTOL » PRTOL, TRLOOP 9 LSTG 
2LBRC? I BRC 9 I CHOKE , I SORR , CHOKE » P TOPS 1 1 6* 8 3 f PTRS2l6,85 , TRO I AG , SC , RC , FLWl 
3 DELPR, PASS s IPC»LOPC» ISS F 1 -W1 

FLWl 

COMMON /SINIT/HlC6»85,H2C6 9 8) s DPO{6f8),OPl{6,8ijDPlA{6 9 8) s DP2?6,8)FLWl 
I »DP2A( 698 ) 9 CSALFl{ 6 j 8) 9 ALF 1 { 69 8 3 »CSBET2( 6 , 8 3 9 BE T2 1 69 8 5 B RADSD 16,8 3 9 FLWl 


2RADRDC 698)9 ANN1 1 69 8 ) 9 ANN2 I 69 8 3 * ANN2 A S 6 9 8 3 9 ANN1A { 6*8 3 P U1A f 6 98 3 
3U2 { 6 » 8 3 9 ANNO? 6 , 8 ) yPTOC 69 8 3 « TTO i 6,8 I 9 ALPHA0{6 9 8) , PTP { 6, 8 3 


FLWl 

FLWl 

FLWl 

FLWl 

FLWl 

FLWl 


COMMON /SINPUT/ 

lPTPSfPTIN* TT IN yWAIR* FAIR 9 DELC S DELL 9 OELA » AAC S > VCTD « STG ? SECT yEXPN, 
2EXPP 9 EXPRE y RGyRPM,PAF 9 SL I ,STGCH, END JOB, NAME 110) , TITLE C 10) , 

3PCNHC6 ) 9 GAM ( 6 9 8 3 » DR { 6 » 8 3 , DT i 6 » 8 } , R WG { 6 , 8 3 B ALPHAS ( 6* 8 3 9 AL PH A1 1 6 • 8 3 9 FL W 1 
4 £T ARS ( 6 * 8 ) 9 ET AS ( 6 ? 8 ) « CFS ( 6 9 8 3 j ANDO I6*8)9B£TAlC6 9 8),BETA2{6v8}yETARFLWl 
5R { 6 ? 8 3 9 ETAR ? 6 1 8 3 9 CFR l 6 , 8 ) , TFR I 6 , 8 3 ? ANDOR ( 6 „ 8 ) , OMEGAS { 698 ) 9 ASO ( 6 9 8 ) FL W 1 
6 * ASMPOC 6 * 8 3 * ACMNO( 6 * 8) * Al( 6 * 8 3 *A2 ( 69 8 3 * A3 ( 6 * 83 * A4 C 6 *8 3 * A.5( 6 * 8 3 * A 6 t FLWl 
7698) s OMEGAR( 6,8) 98SIA(6j8) ,BSMPIAf6 9 8) ,BCMNIA(6*8) 9811698) s B2f6 9 8)FLWl 
8 9 B3C6 9 8 39841698! 985(698) 986(6983 9SESTHI { 8 3 9RERTHI 18 3 FLWl 

FLWl 

REAL MG FLW1 

COMMON /SSTA01/CPOI83* PSO (6* 8) » VO (6*8 » *TS0(6*FLW1 

18 3 9VUOC 6 r 8 ) , VZO{ 698) 9RHOSO (6*8)9PS1(6*8) sWGTl ( 8 3 9 TAI { 8 3 * WG1 C 69 8 3 9 FLWl 

2 DPDR 1(6*83 «SI(6*8) 9 CPI (8 ) , PHI 1 (6* 8 3 ,TS1(6, 8) » VI (6*8 3FLW1 

3 y RH0S1 <698) , ALF1E(6*8) *VU1(6»8) *VZ1(6*8) *M0(6*8) FLWl 

FLWl 

DIMENSION PHI 1C( 8 ) * PTPS1CC 8 3 *V1C ( 698 1 *TS1C(6 * 8 3 9 RHOSIC f 6*8 3 9 WG1C ( 6FLW1 

1 ,8) ,CSAL1E( 6, 8 3 , SFF(6, 8 ) FLWl 

pi u 1 


000 

001 

002 

003 

004 

005 

006 

007 

008 
009 
01C 

on 

012 

013 

014 

015 

016 

017 

018 

019 

020 
021 
022 

023 

024 

025 

026 

027 

028 

029 

030 

031 

032 

033 

034 

035 


EX= I GAM ( 2 9 K 3 " 1 o )/GAM{2 s K3 
C COMPUTE I SENTROP IC STATOR TEMPERATURE RATIO 

7 PHI1(I*K)=PT0PS1(I*KJ**EX 
C TEST FOR LOSS COEFFICIENT INPUT 

IF l OMEGA Stly!) 3 2 9 2 * I 

1 CALL LOSS 1 1 I 9 K 9 EX 3 

2 TSl(I,K)=TTO(I*K)*(l.-ETAS(I*K)*(l.-lo/PHIl{I,K))) 
1F{ I-IP)6,3*6 

3 I F { GAMF 34,4,5 

4 TA1(K3=.5*(TT0(I,K)+TS1{ I*K) 3 

CALL GAMMA ( PTO ( I P » K 3 , TA II K 3 , FA I R , W A i R 9 GAM ( 2 f K) 3 

5 EX=(GAM(2»K)-1.0)/GAM(2*K) 

EXI=1./ EX 

C CRITICAL PRESSURE RATIO 

CALL PHIM(EXI*ETAS( I,K) ,PHUC(K)*PTPS1C(K3 3 


FLWl 036 
FLWl 037 
FLWl 038 
FLWl 039 
FLWl 040 
FLWl 041 
FLWl 042 
FLWl 043 
FLWl 044 
FLWl 045 
FLWl 046 
FLWl 047 
FLWl 048 
FLWl 049 
FLWl 050 
FLWl 051 
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c 

c 

c 

c 

c 


c 


c 


c 


c 


CP1IK}=RG*£X I/AJ 
EXIT VELOCITY 

6 V1{I,K)=SQRT{2.*G*AJ*CP1(K)*{TT0U,K)-TS1(I,K) ) ) 

EXIT PRESSURE 

PS 1 ( I »K ) =PTO ( I,K)/PT0PS1(I,K) 

EXIT DENSITY 

RHOS HI jK) = 144 • *P$ 1 ( I,K)/(RG*TS1( I ,K)) 

TEST CRITICAL PRESSURE RATIO 
IFIPTOPSU I,K)-PTPSICIK) )15, 8,8 
GREATER THAN CRITICAL 

8 IF ( IP-I) 21,9,21 

9 IF I PRPC) 10, 10,22 

PREVIOUS PITCH NGNCRITICAL 

10 PRPC=1. 

PTOPSU I,K)=PTPS1C(K)*( l.+PRTOL) 

GO TO 7 

21 IF CPTOPSlt I,K).LE.PTOPSl(IPtK)J GO TO 22 
GO TO 12 

22 IF ( ( I.EQ.l) .OR. ( I.EO.ISECT) ) SCRIT=1. 

GO TO 11 

PITCH OR OUTBOARD SECTOR 

11 CONTINUE 

V1C( 1,K) = SQRT(2.*G*AJ*CP1(K)*TT0{I,K)*ETASII',K)*(PHI1C(K) 

1-1. )/PHIlC(K) ) 

TS 1C 1 1 , K ) =TTO { I , K ) * ( 1 • — E TA S ( I , K ) * ( 1.-1./PHI1CIK) ) } 

RHOS 1C ( I,K )=144.*PT0{ I ,K )/( P TP SI C ( K ) *T S 1C 1 1 , K ) *RG ) 

WG1C { I ,K )=RH0S1C ( I ,K ) * VIC C I ,K)*ANN1 ( I , K > *CSALF 1 ( I , K 1 
WG1 ( I , K ) =WG1C { I , K ) 

13 CSAL1EI I , K ) =WG1 1 I,K)/(RH0S1( I,K)*V1( I , K) * ANN 1C I ,K ) ) 

EFFECTIVE STATOR EXIT ANGLE 

14 ALF1E ( I»K)=ATAN2{SQRT{1.-CSAL1E(I,K)*CSAL1E(I»K) ) , 

1CSAL1E C I , K ) ) 

GO TO 16 

12 IF ( PRPC-1. ) 15,15,24 

24 WG1 1 I * K ) =SFF ( I , K > * PTO ( I , K ) / SORT { TTO ( I , K ) ) 

GO TO 13 

PRESSURE RATIO LESS THAN CRITICAL OR SUPERSONIC FLOW DECREASE 

15 WG1 { I ,K)=RH0S1 ( I »K ) * V 1 ( I ,K)*ANN1 ( I ,K)*CSALF1 ( I ,K> 

CSAL1EI I*K)=CSALF1( I,K) 

ALF1EI I , K ) =ALF1{ I,K) 

SFF ( I,K) = WG1 ( I ,K)*SQRT(TTOU,K ) ) /PTO II ,K) 

16 VU1( I,K) = V1! I,K)*SIN(ALF1E t I ,K>) 

DPDRlt I ,K ) = . 01 3889*RH0S1 ( I , K ) * VU1 C I ,K)*VU1 ( I ,K ) / 
i { G*DP1 { l , K ) ) 

VZ1 ( i»K )=V1 t I,K)*CSAL1E( I,K) 

IF ( I .LT • I SECT ) GO TO 17 
IF ( PRPC . EQ . 1 . ) PRPC=2. 

17 CALL CHECK { J ) 

GO TO { 19,20) , J 

19 CALL DIAGTI2) 

20 RETURN 
END 


FLW1 052 
FLW1 053 
FLW1 054 
FLW 1 055 
FLW1 056 
FLW1 057 
FLW1 058 
FLWl 059 
FLW1 060 
FLWl 061 
FLWl 062 
FLWl 063 
FLWl 064 
FLWl 065 
FLWl 066 
FLWl 067 
FLWl 068 
FLWl 069 
FLWl 070 
FLWl 071 
FLWl 072 
FLWl 073 
FLWl 074 
FLWl 075 
FLWl 076 
FLWl 077 
FLWl 078 
FLWl 079 
FLWl 080 
FLWl 081 
FLWl 082 
FLWl 083 
FLWl 084 
FLWl 085 
FLWl 086 
FLWl 087 
FLWl 088 
FLWl 089 
FLWl 090 
FLWl 091 
FLWl 092 
FLWl 093 
FLWl 094 
FLWl 095 
FLWl 096 
FLWl 097 
FLWl 098 
FLWl 099 
FLWl 100 
FLWl 101 
FLWl 102 
FLWl 103 
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APPENDIX 3 F 


L1BFTC L OS 1 FUL 1ST* DECK ? SDD 

CL0SS1 


CALCULATE EFF I C l ENCY 
SUBROUTINE LOSS1 t I ,K,EX) 

REAL MFSTOP 
LOGICAL PREVER 

COMMON /SNTCP/G, AJ 9 PRPC, ICASE, PREVER ,MFSTOP, JUMP, LOP IN, I SC ASF, 

I K.N , GAMF f I P 9 SCR IT, PIRN, I SECT, KSTG, WTOL , RH0TOL , PRTOL, TRLOOP, LSTG, 
2LBRC, I 8RC ? ICHOKE, l SORR , CHOKE , P TOP S 1 ( 6 , 8 ) »PTRS2'(6,8) »TRDi AG,SC,f 
3DELPR,PASS, IPC,LOPC, ISS 


COMMON /SINIT/HK6,8) »H2(6,8) ,DP0{6,8) , DPI ( 6 , 8 ) , OP1 A (6 , 8 } , OP2 C t 
l,DP2A(6»8),C$ALFi(6,8),ALFl(6,8) ,CSBET2(6,8) ,8ET2 (6,81 ,RADS0(6, 
2RAORDI 6, 8 i , ANNIC 6, 8 I ,ANN2?6,8) ,ANN2Af 6,8) »ANN1A (6,8) ,U1A 16 ,8 } , 
3U2*6,8),ANN0(6,8)»PT0(6,8) , TT0C6,8) ,ALPHA0(6,8) ,PTP{6 V 8) 

COMMON /S INPUT / 

iPTPS, PTIN, TTIN,WAIR»FAIR,DELC,DELL,DELA» AACS, VCTO ,STG, SECT,EXPT 
2EXPP»EXPRE,RG»RPM,PAF,SLI,STGCH,ENDJOB,NAME< 10) ,TITL£C 10) , 

3PCNH ( 6 l , GAM {6,85 , DR ( 6, 8 ) »DT ( 6, 8 ) , RWG ( 6 , 8 ) , ALPH AS < 6, 8 ) , ALPHA1 (6, 
ALTARS f 6,8 ) » ETASf 6, 8) »CFS(6, 8) , ANDO (6,8 I , BETA1 ( 6 , 8 ) , BET A2 (6,8) »£ 
5R(6,8),ETAR (6,8) ,CFR(6,8 ),TFR( 6,8) e AMOUR (6,8) ,0MEGAS(6,8> , ASOU 
6 , ASMPO 16,8 ! , A CM MO f 6 , 8 ) , A H 6 , 8 ) , A2 { 6 , 8 ) , A3 ( 6 , 8 ) , A4 ( 6 , 8 ) , A .5 ( 6, 8 } , 
76,8) ,OMEGAR (6*8) ,BS).A(6,8) ,BSMPi A ( 6,8) -BCMNI A (6 ,8 ) ,B1 1 6, 8) ,B2U 
8,B3( 6,8-) ,B4( 6,8) ,B5( 6, 8) ,B6( 6, 8) ,SE-STHi ( 8) ,RERTHI 18) 


REAL MO 

COMMON /SSTA01/CPCC8) , PSO C 6 , 8 ) , VO 16 ,8 ) , TSC 

18) ,VU0(6,8) , VZO i 6, 8 ) ,RH0S0(6,8 ) , PS 1(6,3) , WGT1 C 8 ) , TA 1 { 8 3 , WG1 ( 6 , 6 
2 DP DR 1 ( 6 , 8 ) , S 1 ! 6 , 8 ) , CPI ( 8 ) , PHI 1 (6, 8 ) ,TS1 1 6, 8 ) , VI ( 6 

3 , RH0S1 I 6 , 8 ) , ALF 1 E ( 6, 8 ) , VU1 ( 6 , 8 ) , VZ 1 ( 6, B ) , MO < 6 , 8 ) 


expN=o„o 
EXPP=OoO 
ETARS! I,K)-1.0 

SIC I ,K)=ALPHAO( I ,Ki- RADSDII,K ) 
I F C S I C 1 9 K I *5,1,2 

1 W 01 ~ 0 MEGAS( lyK J 
GO TO 9 

2 AS- A I { I , K ) 

AC-A2 { a » K I 
AQ--A 3 { I ,K ) 

I F C ASMPO l I»K)-SIU,K)) 3 , 4,4 

3 WMWS=$ I(I>K! /ASMPO ( l , K ) 

AR* ASMPO (I, K)/ AS 0(1, K) 

GO TO 8 

4 WMWS= 1.0 

AR=S I ( I,K)/ASOt I ,K) 

GO TO 8 
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5 AS= A4I I » K ) 

AC=A5( I ,K) 

AQ=A6{ I,K) 

IFtSH I,K)-ACMNO( I,K) } 6,4,4 

6 WMWS=SI{ I,K)/ACMNO( I ,K) 

AR= ACMNO { I , K ) / ASO { I * K ) 

8 W01= ( l.+AR*AR*t AS+AR*{ AC+AR*AQ) ) ) * WMWS*OMEGAS ( I ,K ) 

9 ETAS(I,K)=(1.-<1./CPT0PS1{I,K>*(1.-W01)+W01) ) **EX ) *PHI 1 ( I , K > / 
1 1 PHI 1 ( I,K)-1. ) 

CALL CHECK { J ) 

RETURN 

END 


LOS 1 052 
LOS 1 053 
LOST 054 
LOS l 055 
LOS 1 056 
LOS 1 057 
LOS 1 058 
LOS L 059 
LOS 1 060 
LOS 1 061 
LOS 1 062 
LOS 1 063 
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APPENDIX 


$ I BFTC R FULIST,DECK,SDO 

CR 

C CALCULATE GAS CONSTANT 

SUBROUTINE R { P « T , F , Vf , R X ) 

RX=53« 35045+ { . 65 8*F + 32 . 4 33* W ) / (l. + F + W) 

RETURN 

END 
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APPENDIX 3H 


$ I B F T C GAMA FUL I ST, DECK , SDD 

C GAMMA 


CALCULATE SPECIFIC HEAT RATIO FOR MIXTURE 
SUBROUTINE GAMMA { P , T, F , W ,GAMX > 

CALL CPAIP»T,FfW,CPAX) 

IF(F)2»2,1 

1 CALL CPF(P»T»F»WfCPFX) 

2 IF{W)4,4,3 

3 CALL CPWl P,T,F,W,CPWX) 

4 CPGX=(CPAX+F*CPFX+W*CPWX }/ ( l.+F+W) 

CALL R(P,T,F,W,RX) 

GAMX=CPGX/ t CPGX-RX/778.161 } 

RETURN 

END 


GAMA OOO 
GAMA 001 
GAMA 002 
GAMA 003 
GAMA 004 
GAMA 005 
GAMA 006 
GAMA 007 
GAMA 008 
GAMA 009 
GAMA 010 
GAMA Oil 
GAMA 012 
GAMA 013 
GAMA 014 



APPENDIX 31 


$ I BFTC CPA FUL I ST, DECK , SDD 

CCP A 

C CALCULATE SPECIFIC HEAT RATIO FOR AIR 

SUBROUTINE CPA ( P , T, F , W , CPAX ) 

DIMENSION 
1XTI7), ACT) 

IFtT-lOO. ) 1 ,2,2 

1 TX=100o 
GO TO 5 

2 IF(6400.-T)3,4,4 

3 TX=6400. 

GO TO 5 


4 TX=T 

5 XT ( I )=TX/1000. 

DO 6 1=2,7 

6 XT (I }=XT( I-1)*XT(1) 

CPAX=2.4264907E-0I-2.6657395E-02*XT(1)+4.6617756E-02*XT(2) 

l-l • 3 546542 E-02*XT< 3 ) -8.450093IE~04*XT( 4) +1 . 0303393E-03* 

2XT ( 5 ) - I . 7 I 59795E~04*XT { 6 ) +9. 162791 iE-06* XT ( 7 ) 


RETURN 

END 


CPA 

CPA 

CPA 

CPA 

CPA 

CPA 

CPA 

CPA 

CPA 

CPA 

CPA 

CPA 

CPA 

CPA 

CPA 

CPA 

CPA 

CPA 

CPA 

CPA 

CPA 


000 

001 

002 

003 

004 

005 

006 

007 

008 

009 

010 

011 

012 

013 

014 

015 

016 

017 

018 
019 
02C 
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APPENDIX 3J 


$ I BFTC CPF FIJL I ST, DECK , SDD 

CCPF 

C CALCULATE SPECIFIC HEAT RATIO FOR FUEL 

SUBROUTINE CPF { P , T , F, W, CPFX } 

DIMENSION 

1 XT ( 7 ) » A ( 7 ) 

I F { T— 400. ) 1,2,2 

1 TX=400. 

GO TO 5 

2 IFI3000.-T) 3,4,4 

3 TX=30G0. 

GO TO 5 

4 TX = T 

5 XT ( 1 )=TX/1000. 

DO 6 1=2,7 

6 XT { I )-XT( I - 1 ) * XT { 1 ) 

CPFX=I.0625243E-0I+9. 529 I284E~01*XT ( I ) -7. 2605169E-0I*XT { 2 ) 
L+2.4481406E-01*XT{ 3 ) + 5 . 3 332 1 62E-02 *XT { 4 ) -6 . 46998 I4E-02 *X T ( 5) 

2 + 1.7495567E-02*XT{ 6 ) -l . 6029820E-03*XT { 7 I 
RETURN 

END 


CPF 

000 

CPF 

001 

CPF 

002 

CPF 

003 

CPF 

004 

CPF 

005 

CPF 

006 

CPF 

007 

CPF 

008 

CPF 

009 

CPF 

010 

CPF 

on 

CPF 

. 012 

CPF 

*013 

CPF 

' 014 

CPF 

015 

CPF 

016 

CPF 

017 

CPF 

018 

CPF 

019 

CPF 

020 
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APPENDIX 3K 


SIBFTC CPW FULIST*DECK,SDD 

CCPW 

C CALCULATE SPECIFIC HEAT FOR WATER VAPOR 

SUBROUTINE CPW ( P , T , F , W, C PWX ) 

DIMENSION 
iXT { 7 ) » A ( 7 } 

IFIT-400. ) 1,2,2 

1 TX=400. 

GO TO 5 

2 IF(300Q.-T)3,4,4 

3 TX=30Q0 . 

GO TO 5 

4 T X = T 

5 XT { 1 ) =TX/ IOOO . 

DO 6 1=2,7 

6 XT ( I ) =XT { I-I1*XT{1) 

CPWX=4, 5728850E-01+9.7007556E-02*XT ( 1 ) +1 . 6536409E-01 
1*XT(2)-4.1138066E-02*XT{ 3 ) -2.6979575E-02*XT ( 4 J +2 . 261924-3E-02 
2 *XT ( 5)-6o2706207E-03*XT( 6} +6 . 2 2467 I0E-04*XT ( 7) 

RETURN 

END 



APPENDIX 3L 


SiBFTC PRIO FULlSTfDECK»SDD 
CPRATIO 

C CALCULATE PRESSURE RATIO 

SUBROUTINE PR AT I 0 ( TFF , GA MX , RX , PTPS , PRTOL ) 
A=GAMX/ 1 GAMX- 1 . ) 

B=2./GAMX 

C= ( GAMX+1 • J/GAMX 

D=TFF*SQRTIRX/(64.3481*A) ) 

PCRIT={ (GAMX+1. )/2. )**A 
PUP=PCR IT 
PLOW=l .0 
PTRM0=0.0 

1 PTR=(PUP+PL0W)/2. 

DELFM=SQRT ( 1./{PTR**B)-1./(PTR**C) )-D 
I F { DELFM ) 2 * 3 t 3 

2 PLOW=PTR 
GO TO 4 

3 PUP = PTR 

4 PRE=(PTR-PTRMO)/PTR 

IF { ABS(PRE)-PRTOL )6,6,5 

5 PTRMO=PTR 
GO TO 1 

6 IF! PCRIT-PTR) 7,8,8 

7 PTPS=PCR I T 
GO TO 9 

8 PTPS=PTR 

9 CONTINUE 
RETURN 
END 


PRIO 000 
PRIO 001 
PRIO 002 
PRIO 003 
PRIO 004 
PRIO 005 
PRIO 006 
PRIO 007 
PRIO 008 
PRIO 009 
PRIO 010 
PRIO Oil 
PRIO 012 
PRIO 013 
PRIO 014 
PRIO 015 
PRIO 016 
PRIO 017 
PRIO 018 
PRIO 019 
PRIO 020 
PRIO 021 
PRIO 022 
PRIO 023 
PRIO 024 
PRIO 025 
PRIO 026 
PRIO 027 
PRIO 028 
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APPENDIX 3M 


tIBFTC CHCK T- Ui. 1 SI , DICK , SOD 

CCHECK 

C SUBROUTINE TO CHECK SENSE LIGHTS 

SUBROUTINE CHECK! J) 

C 

REAL M F STOP 
LOGICAL PREVER 

COMMON /SNTCP/G, AJ.PRPCf IC ASE , PRE VER , MFSTOP , JUMP , LOP IN , I SC AS E 
LKN»GAMF » I P » SCR I T » PTRN , I SECT ,KSTG , WTOL , RHOTOL , PRTOL, TRLOOP, LST 
2LBRC* IBRC, I CHOKE, I SORR , CHOKE » PTOPS1 16,8) , PTRS2 ( 6 , 8 ) , TRO I AG , SC 
3DELPR»PASS, IPC,LOPC, ISS 
C 

00 1 1=1,4 
CALL SLITETI I , J) 

GO TO < 2 , 1 ) , J 

1 CONTINUE 
J = 2 

RETURN 

2 J = 1 

PREVER= .TRUE . 

RETURN 

END 
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APPENDIX 3N 


$ I BFTC 
CSTA1A 


STIA 


FUL I ST, DECK , SDD 


STIA 
STIA 
STIA 
STIA 
STIA 
STIA 
STIA 
STIA 
STIA 
STIA 
STIA 

COMMON /SINIT/H1 (6,8) *H2(6,8) ,DP0(6,8) , DPI (6,8) , DPI A ( 6 , 8 ) , DP2 ( 6 , 8 ) ST 1 A 
1,DP2A(6,8) ,CSALF1(6,8) , ALF1 ( 6 , 8 ) , C S8ET2 ( 6 , 8 ) ,BET2(6,8) , R ADSD ( 6, 8 ) , ST I A 


SUBROUTINE STA1A 

REAL MFSTOP 
LOGICAL PREVER 

COMMON /SNTCP/G, AJ,PRPC, ICASE, PREVER, MFSTOP, JUMP , LOP IN , I SC AS E, 
i K,GAMF, IP, SCRIT,PTRN,ISECT,KSTG,WTOL,RHOTOL,PRTOL,TRLOOP,LSTG, 
2LBRC, IBRC, I CHOKE , I SORR , CHOKE , PTOPS1 ( 6,8) ,PTRS2(6,8) ,TRDI AG,SC,RC, 
3DELPR, PASS, IPC,LOPC, ISS 


2RADRD ( 6,8) , ANN1 (6,8), ANN2 ( 6,8) , ANN2 A ( 6 , 8 ) , ANN1 A ( 6 , 8 ) ,U1A{6,8), 
3U2(6,8) ,ANN0(6,8),PT0(6,8) , TTO ( 6 , 8 ) , ALPHAOI 6 , 8 ) , PTP ( 6, 8 ) 


STIA 

STIA 

STIA 

STIA 

STIA 

STIA 


COMMON /S INPUT/ 

1PTPS,PTIN» TTIN,WAIR,FAIR,DELC,DELL,DELA, AACS , VCTD ,STG, SECT, EXPN, 
2EXPP,EXPRE,RG,RPM,PAF,SLI , STGCH, END JOB, NAME ( 10) ,TITLE( 10 ) , 

3PCNH (6) , GAM (6,8) ,DR( 6, 8) , DT ( 6, 8 ) , R WG ( 6 , 8 ) , ALPHAS { 6, 8 ) , AL PHA 1 ( 6 , 8 ) ,ST1A 
4ETARS(6,8) ,ETAS( 6,8) ,CFS(6,8), ANDO 16, 8) , BETA I ( 6 , 8 ) , BET A2 ( 6 , 8 ) ,ETARSTIA 
5R(6, 8) ,ETAR{6, 8) ,CFR(6,8) ,TFRI 6,8) , ANDOR ( 6 , 8 ) , OMEGAS ( 6 , 8 ) , ASO ( 6 , 8 I ST I A 
6,ASMP0(6,8), ACMNO( 6,8) ,A1(6,8) ,A2(6,8),A3(6,8),A4{6,8),A5(6,8),A6(ST1A 

76.8) ,0MEGAR(6,8) ,BS I AC 6, 8 ) , BSMPI A ( 6, 8) , BCMNI A (6,8), 81(6, 8) ,B?(6,8)ST1A 

8,B3(6,8) ,84(6,8) ,85(6,8) ,B6(6,8) ,SESTHI (8) ,RERTHI (8) STIA 

STIA 

REAL MO STIA 

COMMON /SSTA01/CP0(8) , PSO ( 6 , 8 ) , VO ( 6 » 8 ) , TSO ( 6 , ST 1 A 

18 ) , VUOI 6, 8 ) ,VZO( 6,8) ,RH0S0(6,8 ) ,PS1(6,8) ,WGTI(8) , TA1 ( 8 ) , WG1 ( 6 , 8 ) , STIA 
2 DP DR 1(6, 8), S 1(6, 8), C PI ( 8 ) , PHI 1 ( 6 , 8 ) , TSI ( 6 , 8 ) , VI ( 6 , 8 ) ST 1 A 

3 , RH0S1 (6,8),ALF1E(6,8),VUI(6,8),VZ1(6,8),M0(6,8) STIA 

REAL MRIA STIA 

COMMON /SSTA IA/VUI A ( 6,8) »WG1A(6,8) , WGT1A (8) ,VZ1A'(6*8), CP1AC8), STIA 
iPSIA(6,8) ,RU1A(6,8 ) ,RIA(6,8) ,8ETIA(6,8) ,RI (6,8) ,TTR1A(6,8) ,PTRIA(6ST1A 

2.8) , MR1A( 6,8) STIA 

DETERMINE FLOW CONDITIONS RELATIVE TO ROTOR, FIND INCIDENCE STIA 

ANGLE RECOVERY ROTOR INLET STATIONS, OBTAIN GAS PROPERTIES, STIA 

ABSOLUTE TANGENTIAL COMPONENT VELOCITY ADJUSTED FOR DIAMETER STIA 

CHANGE TO CONSERVE ANGULAR MOMENTUM, AXIAL COMPONENT STIA 

VELOCITY ADJUSTED FOR WEIGHT FLOW, AREA,, AND DENSITY CHANGE STIA 

FROM STA 1. STIA 

STIA 

STIA 

I=IP STIA 

I D=— I STIA 

TS1A = T S 1 ( I»K) STIA 

RATIO OF FLOW CHANGE STIA 

WR=RWG(3,K)/RWG( 2,K) STIA 

TOTAL STATION FLOW STIA 

WGT1A(K)=WR*WGT1(K) STIA 

ADJUST TANGENTIAL VELOCITY STIA 

13 VU1 A ( I , K ) =VU1 ( I , K ) *DP1 ( I,K)/DP1A( I »K) STIA 
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C ADJUST FLOW 

WG 1 A { I,K)=WR*WGH I »K) 

RHOS TR = RHOS 1 ( I V K ) 

C ADJUST AXIAL VELOCITY 

1 VZ1A( I ,K)-WR*VZ1 ( I p K ) * ANN1 ( I ,K )*RHOSl { I ,K)/t ANN1AI I » K ) 
i *RHDSTR ) 

VIA = SORT ( VU 1 A C I«K)»VU1AM ,K)+VZ1A< I yK)*VZlA( I,K) ) 

I F { I" I P ) 2 v 3 s 2 

2 EX= I GAM { 3 9 K ) - I » 5 /GAM { 3 , K ) 

FXI-l./EX 

GO TO 4 

3 I F ( G AM F } 1 2 » 1 2 « 2 

12 T A 1 A =.5*(TT0U t K!+TSlA ) 

CALL GAMMA{PTOtI,K),TAlA , FAIR , WAIR. GAM C3, K) ) 

EX=(GAM(3?K)~lo ) /GAM ( 3 y K ) 

EXI=lc/EX 

4 CPlACKi=RG*EXI/AJ 

DELTS=CV1U»K)*V1( I,K)-V1A *V1A ) / ( 2 , *G* A J*CP1 A ( K ) ) 

TS1A =TS1 ( I,K) 4-OELTS 

PS1AU*K)=P$1 ( I,K)*<1.+DELTS/TSUI yK) )**EXI 
RHOS 1 A =144.*PS1AC I »K)/ (RG*TS1A ) 

C DENSITY ERROR 

RHOS= { RHOS 1 A -RHOSTR ) /RHOS 1 A 

IF LABS {RHOE I-RHOTOL J 6 p 6 p 5 

5 RHOSTR=RHOSlA 
GO TO 1 

6 RU1AI I ,K)=VU1A{I »K|-U1A{ I,K) 

R1A( I p K ) = SQRT (RU1AU *K)*RU1A1I *K)+VZ1A ( I 9 K)*VZ1A ( l»KU 
S8ET1A =RU1A(I»K)/R1A( I,K) 

BETlAt I,K)=ATAN2<SBET1A , SORT ( 1 . -S8ET1A * SBET1 A )} 

IFlOMEGARt I ,K.> I8y8 s 7 

7 ETARR( I«K)=1. 

EXPR6=0 . 0 

8 MR1ACI S K)=R1AC I » K) /SORT! GAM l 3* K) *G*RG*TS1A ) 

TRTS1A =1.+{GAM(3»K)“1« )*MR1AC IyK)*MRlA{ I ¥ K}/2. 

IF(TRTSlAoGT.lo) GO TO 32 

PREVER = .TRUE* 

GO TO 17 

32 TTRiAt I pK )=TS1A *TRTS1 A 

RI(I»K)=BETIA(I * K J-RADRD { I «K) 

I F (. R I( I y K J oGT o 1 „ 5707 } R I ( I * K ) =1 . 5707 
I F C R 1 ( IpKloLTo-lo 5707 ) RIU,K) = -1»5707 
1 F C R I C I ,K) I 9 p 9 s 1 0 

9 EXPR=EXPN 
GO TO II 

10 EXPR =£X PP 

11 PRPS1A =(!«.+ { TRTS 1 A -1 . ) *E TARR ( I s K }* i COS i R I U , K )} * * 

1EXPR ) i ® * E X I 

PTR1A1I »K )=PS1A{ I,K ) *PRPS1A 
IF { ISECT-I ) 14p16p 14 

14 I — I I D 

IF {1)15,15* 13 

15 ID*1 


ST 1 A os; 
ST 1 A 053 
ST 1 A 054 
ST 1 A 055 
ST 1 A 056 
ST 1 A 057 
ST 1A 058 
S T 1 A 059 
ST 1 A 060 
ST 1 A 061 
ST 1 A 062 
ST 1 A 063 
ST 1 A 064 
ST 1 A 065 
ST 1 A 066 
ST 1 A 067 
ST1 A 068 
ST 1 A 069 
STIA 070 
ST I A 071 
STIA 072 
STIA 073 
STIA 074 
STIA 075 
STIA 076 
STIA 077 
STIA 078 
STIA 079 
STIA 080 
STIA 081 
STIA 082 
STIA 083 
STIA 084 
STIA 085 
STIA 086 
STIA 087 
STIA 088 
STIA 089 
STIA 090 
STIA 091 
STIA 092 
STIA 093 
STIA 094 
STIA 095 
STIA 096 
STIA 097 
STIA 098 
STIA 099 
STIA 100 
STIA 101 
STIA 102 
STIA 103 
STIA 104 
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1=IP+ID 
GO TO 13 

16 CONTINUE 
CALL CHECK ( J ) 

GO TO ( 1 7 y 1 8 ) » J 

17 CALL DI AGT ( 3 ) 

18 RETURN 
END 


ST 1 A 105 
ST 1 A 106 
ST 1 A 107 
ST1 A 108 
ST 1 A 109 
ST 1 A 110 
ST 1 A 111 
ST 1 A 112 
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APPENDIX 30 


$ I B F T C ST2 FUL I ST* DECK , SDD 

CSTA2 

C SATISFY CONTINUITY OF FLOW AT ROTOR EXIT 

SUBROUTINE STA2 
C 

REAL MFSTOP 
LOGICAL PREVER 

COMMON /SNTCP/G, AJ,PRPC, ICASE , PREVER , MFSTOP® JUMP , LOP IN , I SCASE- 
i K®GAMF® IP ? SCRIT,PTRN* I SEC T , KSTG ® WTOL * RHOTOL * PRTOL ® TRL OOP » LST* 
2L8RC,IBRC, ICH0KE,IS0RR»CH0KE,PTQPSl(6,8) f PTRS2C6,8) »TRDIAG,SC. 
3DELPR® PASS * I PC ?LOPC® I SS 
C 

COMMON /SINIT/Hl £6*8),H2(6,8) ,DP0<6,8> • DPI (6*8) » DPI A ( 6 , 8 ) , DP2 

1 » DP2A 16*8) ,CSALF1(6,8J f ALFl<6,8) ,CSBET2I6,8) »BET2(6,8> ,RADSO£< 
2RADRDC 6® 8 ) , AMN1 1 6® 8 ) ,ANN2{ 6® 8 I , ANN2A(6®8) , ANNIA £ 6,8 I ,U1A (6,8 ) , 
3U2 (6,8 ), ANNO! 6,8 ) , PT0I6* 8 ) ®TTCH 6® 8 ) , ALPHAOC 6,8 ) ,PTPI6, 8) 

C 

COMMON /S INPUT/ 

IPTPS,PTIN,TT IN, W AIR ,FAIR *DELC,DELL ®DELA* AAC S , VCTD , STG, S£CT®EXf 
2EXPPvEXPRE®RG s RPMvPAFffSL I , STGCH , END JOB ® NAME { 10 I ® TITLE! 10} , 
3PCNH ( 6 ) ,GAM(6,8) ,DR(6,8) ,DT<6* 8) , R WG 1 6 , 8 ) , AL PHAS £ 6 , 8 ) 9 ALPHA I U 
4ETARSI 6*8 ) , ETAS C 6® 8 I ,CFS ( 6 , 8 } , ANDO C 6, 8 ) , BETA I { 6 , 8 ) ® BET A2 ( 6 s 8 } , 
6,6) V ETAR{6,8),CFR(6,8-) , TFR(6*SI , ANDOR { 6, 8 I , OMEGAS 16 , 8 I ® ASO I 
6,ASMP0(6,8),ACMN0(6,8) , A H 6, 8 I , A2 l 6, 8 ) , A3 1 6 , 8 ) , A4 C 6, 8 ) , A 5 f 6, 8 1 
76® 8) sOMEGAR £6*8) ,BSIA£6®8$ , BSMP I A l 6 , 8 J ,BCHNI A ( 6 , 8 ) • BI ( 6 , 8 } ,821 
8»B3(6,8),B4(6,8),B5(6,8),B6(6 V 8) , SESTHII 8 I , RERTH I 181 
C 

REAL MR I A 

COMMON /SSTAlA/VUlAf 6*8) ,WG1A(6,8) * WGT1 A £ 8 ) , VZ I A { 6* 8 ) , CP1A{? 
1PSIA{6,8)«RU1A(6,8),RIA(6,8),BET1A(6,8),RH6»8),TTRIA(6,8) V PTF 

2 ® 8 ) ♦ MR I A £ 6 * 8 ) 

C 


C 


c 


COMMON /SSTA2/V2(6,8) , TTR2 l 6 » 8 ) , PTR2 l 6 » 8 > ,WG2(6,8) ,WGT2(8) *TA2 
1 PS2(6,8) » PHI 2 16, 8) 

REAL MR?* M2 *MF2 

COMMON / SFL 0 W 2 / TS 2 C 6 ? 8 I *CP 2 £ 8 ) »R 2 ! 6 * 8 ) ,RH 0 S 2 t 6 , 8 ) ,BET 2 E( 6 , 8 ) 
I* 8 ),VU 2 ! 6 , 8 )»DP 0 R 2 I 6 , 8 ),VZ 2 t 6 t 8 ) * MR 2 I 6 * 8 ) , MF 2 C 6 * 8 ) * M 2 £ 6 , 8 ) 

D I MENS ION WGT2C t 8 I , FFA2 C 6* 8 ) * I S2 { 8 I 


J =1 

SCRI T-0.0 
PTRMO-Io 
I S 2 ( K 5 ”0 

EX I “GAM { 3 * K } / ( GAM t 3, K t “1 o ) 

WR~RWG i 4* K ), / R W G ( 3* K) 

DO 1 1=1, ISECT 

TTR 2 { I ,K ) =TTR 1 A{ I *K } + CU 2 f 1 ,K |*«2 - U 1 A{ I ,K } *« 2 ) / ( 2 .*G» A J*CP 1 A( 
PTR 2 II,K)=PT R 1 , A ( I,K } * t TTR 2 £ I ,K ) /TTR 1 A ( I ,K ) fc**EXI 
1 WG 2 £ I * K i =WR*HG 1 A U * K I 
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WGT 2 { K ) =WR* WGT 1 A { K } 

ST 2 

052 


I = 1 P 

ST 2 

053 


I D=- 1 

ST 2 

054 


WGT2C( K ) =0. 

ST 2 

055 


IF C I CHOKE ) 26, 26, 3 

ST 2 

056 

26 

IF(L0PIN)27,27,3 

ST 2 

057 

27 

I F { GAMF ) 2 » 2 , 16 

ST2 

058 

2 

TA2(K)=.95*TTR2( IP»K) 

ST 2 

059 


CALL GAMMA {PTR2( I , K ) , TA2 (K } , FA IR , WA I R, GAM { 4 , K ) ) 

ST 2 

060 

16 

FFA2I I,K)=WG2I I,K)»SQRT( TTR2U ,K) ) /U44.*PTR2U , K ) *CSB ET2 <1 , K ) * 

ST 2 

061 


I ANN 2 { I ♦ K ) ) 

ST 2 

062 


CALL PRAT 1 0 { FFA2 ( I , K } , GAM ( 4, K ) ,RG » PTRS2 ( I ,K) ,PRTOL) 

ST 2 

063 

3 

CALL FL0W2 ( I ) 

ST2 

064 


IF (PREVER) GO TO 22 

ST2 

065 


WGT2CIK)=WGT2C(K)+WG2I 1,K> 

ST 2 

066 


L=1 

ST2 

067 


IF ( PTRS2I I,K) .LE.PTRS2I IP,K> ) L=I 

ST 2 

068 


IF( ISECT-I )7,7,4 

ST 2 

069 

4 

I = I + ID 

ST 2 

070 


IFC 1 ) 5 » 5 » 6 

ST2 

071 

5 

I D= 1 

ST 2 

072 


I=IP+ID 

ST 2 

073 

6 

L= I- ID 

ST2 

074 


PS2 t I,K)=PS2(L»K ) + FLOAT { I D ) *DPDR2 ( L , K ) * { H2 I I , K ) +H2 i L ,K ) 

ST 2 

075 


i )/2. 

ST2 

076 


PTRS 2 { I » K ) = PTR 2 ( I , K ) /PS2 { I , K ) 

ST 2 

077 


IF (PTRS2(I,K)-1.)19, 19,3 

ST2 

078 

19 

PTRS2I I,K ) = 1.0 + PRTOL 

ST 2 

079 


GO TO 3 

ST 2 

080 

7 

I F ( IS2IK) )8,8,9 

ST2 

081 

8 

EXI=GAM{4,K)/(GAMI4»K)~1. ) 

ST 2 

082 


CALL PHI Mt EX I ,ETAR(L,K) , PHIX.PRCRIT) 

ST 2 

083 


PRUP=PTR2 I IP,K)*PRCRIT*PS2(L,K)/{PTR2(L,K)*PS2( IP,K) ) 

ST2 

084 


1* ( 1 » +PRTOL ) 

ST2 

085 


PRLO W= 1 . 

ST 2 

086 


GO TO 10 

ST 2 

087 

9 

IS2{K)=IS2(K)+1 

ST 2 

088 

10 

L = I BRC + 1 

ST 2 

089 


IF ( ICHOKEoEQoL ) PTRS2(IP,K) = PRUP 

ST 2 

090 


IFIWGT2IK) — WGT2CIK) ) 12, 15, 11 

ST 2 

091 

11 

PRLOW= PTRS2 ( I Pj K ) 

ST2 

092 


GO TO 13 

ST 2 

093 

12 

PRUP= PTRS2UP.K) 

ST2 

094 


I S2 1 K ) = 1 

ST 2 

095 

13 

WE=1 ,~WGT21K)/WGT2C(K) 

ST2 

096 


J = J + 1 

ST 2 

097 


IF{J-32)29fl8»18 

ST 2 

098 

29 

I F ( I CHOKE-L ) 30,31,30 

ST2 

099 

31 

SCR I T= “WE 

ST 2 

100 


GO TO 15 

ST2 

101 

30 

IF(LOPIN) 14, 14,15 

ST 2 

102 

14 

PRE= ( PTRS2 ( I P , K ) -PTRMO } /PTRS2 { IP,K) 

ST2 

103 


IF (ABSIPRE )-PRTOL) 17, 17,24 

ST 2 

104 
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1? CONTINUE 

IF { A8S1WE J-WTOL ) 15* 15*23 

24 PTRH0=PTRS2( IP S K } 

WGT 2CIK)=0o0 

I = I P 
I D=- 1 

IF ( SCR IT)28$28»15 
28 PTRS2 C I P j K ) = . 5* ( PRLOW + PRUP ) 

IF (PTRS2(IP,K).LE.PRCRIT) PRPC=0.0 
GO TO 3 
23 SCR I T= I. 

15 IFITRLOOPoEQoOo ) GO TO 25 

18 WRITE! 6 * 1000 )K*PRUP*PRLOW*WE*PRCRIT*J*WGT2!K) ,WGT2C!K ) 9 CWG2CLpKI 
1 L = 1 s I SECT I 

WRIT EC 6 , 1001 } { PTRS2 t L ® K } ,L = 1* I SECT I 

1000 FORHAT(2X»2HK=I4? 2X*6H PRUP=F8.5 ,2X, 6HPRL0W=F8. 5 ,2X, 6 H W£= 

1 F 8 « 5 » 1 X * 7HPRCR I T = F 8 * 5 p 2X , 2H J= I 4/ 

22X s 6 H W6T2 = F8.3t 2 X , 6HWGT2C = F 8 . 3/ 

32X 9 6 H WG2 = 6 F 8 o3 ) 

1001 FORMAT! 2X . 6HPTPS2-6F8. 5 ) 

25 CALL CHECK ( J ) 

GO TO C 20 j 2 1 ) 9 J 

20 CALL DIAGTC4) 
do TO 22 

21 CALL LOOP 

22 RETURN 
END 
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APPENDIX 3P 


SIBFTC FLW2 FUL I ST, DECK , SDD 
C FLOW 2 

C CALCULATE ROTOR EXIT SECTOR FLOW 

SUBROUTINE FLOW2 { I ) 

C 

REAL MFSTOP 
LOGICAL PREVER 

COMMON /SNTCP/G, AJ ,PRPC, IC A SE , PRE VER , MF STOP, JUMP , LOP IN , I SC AS E , 

1 K,GAMF,iP,SCRIT , PTRN, ISECT,KSTG,WTOL,RHOTOL ,PRTOL, TRLOOP, LSTG, 

2 L BRC , I BRC » I CHOKE , I SORR , CHOKE , P TOPS I ( 6, 8 ) ,PTRS2(6,8) » TRD l AG , SC, RC , 
3DELPR, PASS, IPC,LOPC, ISS 

C 


FLW2 OOO 
FLW2 001 
FLW2 002 
FLW2 003 
FLW2 004 
FLW2 005 
FLW2 006 
FLW2 007 
FLW2 008 
FLW2 009 
FLW2 010 
FLW2 Oil 


COMMON /SIN IT/HI (6, 8) ,H2(6,6},DP0(6,8),DP1(6,8),DP1A{6 
i,DP2A{ 6,8) ,CSALF1(6,8) ,ALF1 (6,8) ,CSBET2(6,8) ,BET2 (6,8) 
2RADRDI 6,8) ,ANN116,8) »ANN2(6,8) ,ANN2A(6,8) »ANN1A(6,8) ,U 
3U2 (6,8) ,ANN0(6»8),PT0(6,8) ,TT0(6,8) , ALPH AO f 6 , 8 ) , PTP ( 6 , 

COMMON /SINPUT/ 

1 PTPS , PT IN, TTIN,WAIR,FAIR 
2EXPP,EXPRE»RG,RPM,PAF,SL 
3PCNH ( 6 ) , GAM (6,8) ,DR(6,8) 

4ET ARS ( 6,8) , E T AS I 6, 8 ) , CF S 
5R { 6, 8 ) » ET AR ( 6 , 8 ) ,CFR(6,8 
6,ASMP0t6,8), ACMNO (6,8) ,A 

76.8) ,0MEGAR{6» 8) ,BSIA(6, 

8,83t6,8),B4{6,8) ,B5I6»8) t u u i u i u / i oc j f ni \ u # t i\li\ i m 10 / 

COMMON /SSTA2/V2 (6,8) ,TTR2 (6,8), PTR2 16,8) ,WG2{ 6,8) , WGT 
1 PS2{6,8 ) ,PHI2 (6,8) 

REAL MR2 , M2 ,MF2 

COMMON / SFL0W2/T S2{6,8) » CP2 ( 8 ) , R2 ( 6 , 8 ) ,RH0S2(6,8) , BET2 
1*8) , VU2{ 6,8 ) ,DP0R2(6,8) , VZ2( 6, 8) ,MR2C6,8) , MF2 { 6 , 8 ) , M2 ( 

DIMENSION P1AS2CI8) ,PHI2C( 8) ,R2C 16,8) ,TS2C(6,8) ,RH0S2C 

1.8) ,CBET2E(6,8) , AS2(6,8> ,RFF(6,8) 


,8) , DP2 { 6 » 8 ) FL W2 
,RADSD(6,8),FLW2 


1 A { 6 , 8 ) , 
8 ) 



FLW2 

FLW2 

FLW2 

FLW2 

FLW2 

FLW2 


£X= { GAM 1 4, K ) - 1 . ) /GAM ( 4 ,K ) 

I SENTROP I C ROTOR RELATIVE TEMPERATURE RATIO 
10 PHI2U,K)= PTRS25 I,K)**EX 
I F ( OMEGAR { I ,KI >2,2,1 

1 CALL L0SS2 { I , K ) 

EXIT TEMPERATURES 

2 TS2 ( I , K ) = TTR2 ( I , K ) * ( 1 . -E TAR ( I , K ) * 11 . -1 . / PH I 2 ( I , K ) ) ) 
IF ( I~IP)6, 3,6 

3 IFC GAMF ) 4, 4, 5 

4 TA2(K}=»5*(TTR2( I » K ) +TS2 ( I , K ) ) 

CALL GAMMA ( PTR2I I , K ) , TA2 ( K } , FA IR , WA I R » GAM (4 , K )) 

5 EXI=GAM(4,K)/{GAMI 4,K)-1.) 

EX=1./EXI 

CRITICAL PRESSURE RATIO 


SECT , EXPN, 

10 ), 

ALPHA1 (6,8 ) ,FLW2 

A2 (6,8 ) , ET ARFL W2 

,8),AS0(6,8)FLW2 

, A5 ( 6 , 8 ) ,A6( FLW2 

6.8) ,82(6,8) FLW2 

FLW2 

FLW2 

2(8) ,TA2(8), FLW2 
FLW2 
FLW2 
FLW2 

E(6, 8) ,RU2 (6FLW2 

6.8) FLW2 
FLW2 

(6,8 ) , WG2C(6FLW2 
FLW2 
FLW2 
FLW2 
FLW2 
FLW2 
FLW2 
FLW2 
FLW2 
FLW2 
FLW2 
FLW2 
FLW2 
FLW2 
FLW2 
FLW2 
FLW2 
FLW2 


012 

013 

014 

015 

016 

017 

018 

019 

020 
021 
022 

023 

024 

025 

026 

027 

028 

029 

030 

031 

032 

033 

034 

035 

036 

037 

038 

039 

040 

041 

042 

043 

044 

045 

046 

047 

048 

049 

050 

051 
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c 

c 

c 

c 

c 


c 


CALL PHIMt EXI »ETAR ( I *K) » PHI2C t KJ ,P1AS2C(K > } 
SPECIFIC HEAT AT CONSTANT PRESSURE 

6 CP2(K)-RG*EXI/AJ 

RELATIVE EXIT VELOCITY 

R2 l I »K J = SQRT C 2 „*G* AJ*CP2 (K ) * I TTR2 II *K) -TS2 II *K H ) 

EXIT PRESSURE 

PS2 ( 1 , K 1 = PTR2 ( I J / PTRS2 f I sK I 
EXIT DENSITY 

RHOS2 { l , K I = 1 44 0 * P S 2 ( I s K ) /( RG*TS2 { I » K) ) 

TEST CRITICAL PRESSURE RATIO 
I F ( PTRS21 I*K)-P1AS2CCK) )I5t 7*7 

7 IF tIP-n 22,8*22 

8 IF <PRPC)9*9,18 

9 PRPC= 1 » 

PTRS2C I,K)=P1AS2CCKI*CI.+PRT0U 
GO TO 10 

22 IF { PTRS2I I ,K J oLE«PTRS2t IPsKH GO TO 18 
GO TO 13 

18 IF ( ( loEQol) oOR* CIoEQoISECTI ) SCR 1 7=1. 

GO TO 11 


i i UUiN I i iMUC 

R2CC I*K) = SQRTt 2.*G*AJ*CP2(K)*TTR2U,K)*ETARU*K)*( 

1 PH I2C ( K I — 1 o J/PHI2CCK ) } 

tS2C l I ? K ) =TTR2 I I ,K J *( lo-ETARU *K)*( 1 o-l • /PH I 2C ( K ) ) ) 
RH0S2C ( I ,K ) =144 o ®PTR2 { I , K l / ( RG *P 1 A S2C I K ) *TS2C 1 1 * K J J 
WG2C ( I ,K>=RH0S2C( I ,K)*R2C( I ,K) *ANN2( I ,K)*CSBET2 Cl »K> 

12 WG2C I r K ) = WG2C ( I S KI 
GO TO 14 

13 i F C PRPC"*I o ) 15,15,24 

24 WG2 { I ,K ) =REF ( I *K )*PTR2 (I »K) /SORT C TTR2 ( I ,K H 


14 


15 


OVEREXPANSION AFTER SUPERSONIC FLOW DECREASE 
CBET2EC I s K I = W G 2 C I,K)/(RH0S2CI*K)*R2CI,K) *ANN2 C I t K I I 
8ET2EC I j K J -ATAN2 { SORT C 1 o-CBET2E l I s Kl*CB£T2ECIsKS I y C8ET2ECI*K) I 
GO TO 16 

WG2U,K)=RH0S2{l,KI*R2(I,Ki*ANN2U,K)*CSBET2U*KJ 
CBET2EC I*Ki-CSBET2(I,K) 


BET2EC I » K 1 = B E T 2 C I ? K ) 

RFF( I,K)=WG2I I,K)*SQRT(TTR2U,K))/PTR2(I.K) 

16 RU2 ( I ,K )-R2 ( I *K) *SINCBET2E ( I ,K ) ) 

VU2 ( I ? K 5 =RU 2 { I*K)-U2iI ,K) 

DP DR 2 C I,K)= CRH0S2C IpKl*VU2C I ,K)*VU2C I , K) / (G*DP2 1 1.* K) 
VZ2 C I , K ) = R2 ( I,K)*CBET2E( I*K) 

AS2( I,K)=SQRT(GAM{4,K)*G*RG*TS2(I*K) I 

V2(I,K)=SQRTIVZ2(I,K)*VZ2( I,K)+VU2tI,K)*VU2tI*K ) ) 

M2( I * K I = V 2 C I*K 1/AS2C I*K - ) 

MR 2 t I,K)=R2( I?K)/AS2C I * K I 
MF2 ( I ,K S=MR2 { I ,K **CBET2E C I 
IF C I oLT e I SECT ) GO TO 17 
IFCPRPCoEQol . I PRPC = 2 « 

17 CALL CHECK ( J ) 

GO TO C 19 y 2 1 ) p J 

19 CALL DIAGTC4) 


*o 01 3889 


FLW2 052 
FLW2 053 
FLW2 054 
FLW2 055 
FLW2 056 
FLW2 057 
FLW2 058 
FLW2 059 
FLW2 060 
FLW2 061 
FLW2 062 
FLW2 063 
FLW2 064 
FLW2 065 
FLW2 066 
FLW2 067 
FLW2 068 
FLW2 069 
FLW2 070 
FLW2 071 
FLW2 072 
FLW2 073 
FLW2 074 
FLW2 075 
FLW2 076 
FLW2 077 
FLW2 078 
FLW2 079 
FLW2 080 
FLW2 081 
FLW2 082 
FLW2 083 
FLW2 084 
FLW2 085 
FLW2 086 
FLW2 087 
FLW2 088 
FLW2 089 
FLW2 090 
FLW2 091 
FLW2. 092 
FLW2 093 
FLW2 094 
FLW2 095 
FLW2 096 
FLW2 097 
FLW2 098 
FLW2 099 
FLW2 100 
FLW2 101 
FLW2 102 
FLW2 103 
FLW2 104 
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21 RETURN 
END 


FLW2 105 
FLW2 106 
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APPENDIX 3 Q 


$ I BFTC LOS 2 FUL I ST* DECK » SOD 

CL0SS2 

C CALCULATE ETA R FROM QUADRATIC POL YNMDNI AL 

SUBROUTINE LOSS2U,K) 

C 

REAL MFSTOP 
LOGICAL PREVER 

COMMON /SNTCP/G, AJ,PRPC, IC ASE , PRE VER ,MFSTOP, JUMP, LOP1N » I SC ASE* 
IKN,GAMF, IP* SCRIT*PTRN* I SECY * KST6, WTOL* RHGTGL » PRTOL * TRLOOP, LSTG* 
2LBRC * I BRC * I CHOKE * I SORR * CHOKE * PTOPS U 6* 8 ) « PTRS2 ( 6 , 8 > ,TRDI AG » SC,RC, 
3DELPR* PASS * IPC*LOPC* ISS 
C 


LOS 2 OOO 
LOS 2 001 
LOS 2 002 
L0S2 003 
LOS 2 004 
L0S2 005 
LOS 2 006 
LOS 2 007 
L0S2 008 
L0S2 009 
L0S2 010 
LOS 2 Oil 


COMMON /SINPUT/ L0S2 012 
1PTPS *PT IN* TTIN*WAIR* FAIR *DELC* DELL *DELA*AACS*VCTD*STG, SECT*EXPN* L0S2 013 
2EXPP,EXPRE»RG,RPM,PAF,SLI,STGCH»ENDJ08,NAME( 10) * TITLE! 10) * L0S2 014 
3PCNH ( 6 I , GAM (6*8} *DRC6*8) »DT ( 6, 8) ,RWG f 6, 8 ) , ALPHAS ( 6, 8 ) » ALPHA 1 (6*8) ,L0S2 015 
4ETARS! 6*8) , ET AS ( 6, 8) ,CFS ( 6, 8) , ANDO ( 6 , 8 ) , 8ETA1 < 6, 8 ) , BET A2 (6 ,8 ) » ETARL0S2 016 
5R(6,8) ,ETAR(6,8) ,CFR'(6»8) , TFRC6*8J * ANDOR { 6 * 8 ) * OMEGAS f 6 * 8 ) * AS 0 ( 6 * 8 ) L0S2 017 


6,ASMP0t6*8) ? ACMNOI 6* 8 ! ,Al(6 f 8),A2t6,8)»A3(6,8),A4(6,8) * A 5 C 6 » 8 ) * A6 C LOS 2 018 


C 


C 


76*8) , OMEGAR (6,8) *BSI A (6* 8! ,BSMPLAf 6,8) * BCMNi A ( 6 * 8 ) , B 11 6 * 8 ) *82(6* 8 JL0S2 019 
8,B3(6,8),B4(6,8),B5(6,8) ,B616,8) ,SESTHI ( 8) ,RERTHI (8 ) .L0S2 020 

' L0S2 021 

REAL MR1A L0S2 022 

COMMON /SSTA1A/VU1A(6,8)»WGIA(6,8),WGT1A(8),VZIA(6,8), CP1A(8I* L0S2 023 
lPSlA{6,8),RUlAC6p8),RlA(6,8),BETIAC6,8),Rn6,8) * TTR i Af 6 * 8 I ,PTRI A t 6L0S2 024 
2*8)* MR 1 A ( 6 * 8 ) L0S2 025 

L0S2 026 


COMMON 

1 

C 

C 


/SSTA2/V216,8),TTR2(6,8),PTR2(6,8),WG2(6,8),WGT2(8) »TA2(8) »L0S2 027 
PS2(6*8)*PHI2(6*8) L0S2 028 

LOS 2 029 
LOS 2 030 


ETARRC I,K)=loO 
I F { R IU * K )} 4 * 1 * 2 

1 W1A2=GMEGAR(I,K) 

GO TO 8 

2 AS-BI ( I * K ) 

AC = R 2 1 I ,K I 
AQ«83( I,K I 

I F { BSMP I A ( I , K ) -R I (I » K 1) 3 , 6 , 6 

3 WMWR=RH I,K)/BSMP1A(I,K) 

AR-8SMP I A f I,K)/BSIA(I,K) 

GO TO 7 

4 AS”64 ( I * K ) 

AC-851 I , K ) 

AG-8 6 ( I ,K ) 

I F C R I C I,K)-BCMNIA(I,K) 15*6*6 

5 WMWR=RI( I,K)/8CMNIA( I,K) 

AR^RCMN I A C !,K)/8SIA(I,K) 

GO TO 7 

6 WMWR = 1 * 0 

AR = R I { IjKJ/BSIAl I,K) 

7 W1A2 “OMEGAR ( I ,K)*{ 1 .+AR* AR* ( AS+AR* ( AC+AR*AQ) ) )*WMWR 


L0S2 031 
LGS2 032 
LOS 2 033 
L0S2 034 
LOS 2 035 
LOS 2 036 
LOS 2 037 
L0S2 038 
L0S2 039 
LOS 2 040 
LOS 2 041 
L0S2 042 
L0S2 043 
LOS 2 044 
L0S2 045 
LOS 2 046 
L0S2 047 
LOS 2 048 
L0S2 049 
L0S2 050 
LOS 2 051 


186 



8 EX=(GAM{3»K)-1* ) /G AM { 3»K ) L0S2 052 

ETAR(I,K)=( l.-tl./(PTRS2U,K)*(l.-WlA2)+WlA2) )**EX)*PHI2<I ,K>/ LOS2 053 

1 ( PHI 2 { I * K > - 1 • ) L0S2 054 

CALL CHECK { J I LOS2 055 

RETURN L0S2 056 

END L0S2 057 
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APPENDIX 3R 


$ I BFTC LOOP FULIST,DECK,SDD 

CLOOP 

SUBROUTINE LOOP 

HANDLES ALL LOGIC FOR ITERATING TO OBTAIN EXACT CHOKE POINT 
UNDERFLOWS) NO CHOKE INITIAL CHOKE » CHOKE ITERAT !C 
SUBCR I T ICAL ? CHOKE ITERATION SUPERCR IT I CAL , MULT I P 
CHOKE 9 CHOKE ITERATION COMPLETE 


REAL MFSTOP 
LOGICAL PREVER 

COMMON /SNTCP/G ? AJ 0 PRPC 9 I CASE , PREVER s MFSTOP * JUMP , LOP IN , I SC AS E „ 
IKN,GAMF, IP^SCRlTpPTRN* I SECT,KSTG , WTOL, RHOTOL , PRTOL, TRLOOP , LSTt 
2LBRC* IBRCs, I CHOKE v I SORR s CHOKE « P TOPS 1 £ 6, 8 ) s PTRS2 C6»8i ? IRQ I AGs SC * 
3 DEL PR* PASS? I PC® LOPC , I SS 
C 

COMMON /S INPUT/ 

iPTPS, PT IN, TT IN, WAI R p FA IR sDELC, DELL , DELA S AACS 5 BLLD , STG, SECT«EXf 
2EXPP , FXPRE , RG, RPM, PAF, SL I , STGCH, END JOB ,NAME 1 10 ) , T ITLE C 10 1 * 
3PCNH ( 6 I , G AM £ 6 , 8 ) , DR £ 6 , 8 ) , DT £ 6, 8 I , RWG £ 6 , 8 J , AL PHAS £ 6 , 8 i , ALPH A1 £ < 

4ETARSI 6? 8 ) * ETASC 6 fl 8 } ? CFS C 6* 8 ) * ANDO (6*8) 9 BETAl£6 f 8$pBETA2£6 !; 8) s 
5 R ( 6 , 8 ) « E T AR { 6 , 8 ) , C FR £ 6 ® 8 ) , TF R I 6 , 8 ) , ANDOR £6,8 I , OMEGAS C 6 * 8 ) , ASO i 
ASMPO l 6? 8 I f ACMNOf 6, 8 ? t Alf6j8S p A2 £ 6, 8 £ * A3 £ 6* 8) , A4 £ 6 , 8 S ^ A b> C 6 » ft 1 

76,8),0MEGAR£6,8),BSIA{6,8ifBSMPIA£6»8I,BCMNIA{6,8),Bll6t>8),B2i 
8 ,B3 l 6, 8 1 ,84{ 6, 8 I , B5£ 6, 8 J ,B6 £ 6, 8 J , SESTHI £ 8 ) ,RERTH I £ 8 ) 

C 

I J = 8«-KSTG 

C INCREASE BLADE ROW COUNTER 

IBRC=IBRC+1 

C TEST NEGATIVE SECTOR PRESSURE RATIO 

IF (PTRN)18,1,1 

C TEST CHOKE ITERATION ON BLADE ROW 

1 IF £ ICH0KE-IBRC)3f2f 3 

C TEST INCREMENT TOLERANCE 

2 IF l PRTOL-DELPR? 3* 3,4 

C TEST STATION FLOW CRITICAL 

3 IF (SCRITI5,5,6 

C CHOKE ITERATION COMPLETE 

4 I CHOKE'-O 
I PC" IBRC 
ISS= IBRC 

IS0RR=2+£ I BRC/ 2 } *2~ IBRC 
JL - { ISORR-l ) *8-s-KN 
IF {JL“IJI22*^3t23 

22 DELPR=DELL 
24 LOPC -0 

CHOKE® 1, 

LSTG=KN 
L8RC - I BRC™ 1 
GO TO 18 

23 DELPR=DEL A 
GO TO 24 

5 IF £ I CHOKE- I BRC >18,7, 18 


188 


non 


C TEST CHOKE ITERATION LOOP 

6 IF( ISS-IBRCI8, 18,18 
CHOKE ITERATION 
ISORR = 1 FOR STATOR 

= 2 FOR ROTOR 

7 DELPR=DELPR/2. 

JL= ( ISORR— 1 ) *8+LSTG 
PTOPSH IP, JL )=PT0PS1( IP, JO+DELPR 

GO TO 16 
C CHOKE HAS OCURREO 

8 IF { I CHOKE )80»80» 13 

80 J= { I BRC-2* { KN— 1 ) — 1 )*8+KN 

WRITEC6,801)IBRC,PT0PS1( IP,J) 

801 FORMAT ( 16X10HBLADE ROW 13, 8H CHOKED, 4X5HPTPS=F10. 5 ) 

C TEST SINGLE CALCULATION POINT 

9 IF I DELC) 18, 18, 10 

C TEST PREVIOUS CHOKE 

10 IF (IPC)ll, 11,12 

C SAVE COMBINATIONS PRIOR FIRST CHOKE 

11 LBRCS=LBRC 
ISORRS= I SORR 

JL = { ISORR-1 )*8+LSTG 

SPTPS=PT OPS 1 ( IP, JU-DELPR 

LSTGS=LSTG 

SDELPR=DELPR 

GO TO 13 

12 JL=LSTGS+( ISORRS-1 )*8 

DELNU = (PTOPSlt IP,JL)-SPTPS)/4. 

IF (DELNU. LE.O. 0001 ) DELNU = SDELPR/4. 

DELPR = DELNU 

SDELPR = DELNU 

WRITE! 6, 1201 ) I PC , I BRC , DELPR 

1201 FORMAT ( 6X 1 1HBL ADE ROWS 15, 5H AND I5,25H, CHOKED - INCREMENT NOW 
1F10.5) 

LBRC=LBRCS 
LSTG=LSTGS 
ISORR= ISORRS 

PT0PS1 ( IP, JL } = SPTPS + SDELPR 

L0PC=10 

I CH0KE=0 

IPC=0 

ISS=0 

CH0KE=0.0 

GO TO 17 

C TEST PREVIOUS COMPLETE CALCULATION 

13 IF ( PASS 115,15,14 

14 I CHOKE= I BRC 
DELPR=.5*DELPR 

15 JL=( I SORR-1 ) *8+L STG 

PTOPSK IP, JU=PT0PS1UP, JL) -DELPR 
C SET INDEX REGISTERS 

16 CONTINUE 
LOPC=LOPC+ 1 


LOOP 052 
LOOP 053 
LOOP 054 
LOOP 055 
LOOP 056 
LOOP 057 
LOOP 058 
LOOP 059 
LOOP 060 
LOOP 061 
LOOP 062 
LOOP 063 
LOOP 064 
LOOP 065 
LOOP 066 
LOOP 067 
LOOP 068 
LOOP 069 
LOOP 070 
LOOP 071 
LOOP 072 
LOOP 073 
LOOP 074 
LOOP 075 
LOOP 076 
LOOP 077 
LOOP 078 
LOOP 079 
LOOP 080 
LOOP 081 
LOOP 082 
LOOP 083 
LOOP 084 
LOOP 085 
LOOP 086 
LOOP 087 
LOOP 088 
LOOP 089 
LOOP 090 
LOOP 091 
LOOP 092 
LOOP 093 
LOOP 094 
LOOP 095 
LOOP 096 
LOOP 097 
LOOP 098 
LOOP 099 
LOOP 100 
LOOP 101 
LOOP 102 
LOOP 103 
LOOP 104 
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SET 

JUMP FOR CHOKE ITERATION 

LOOP 

10 1 

17 

j U M P = 1 

LOOP 

10* 


GO TO 19 

LOOP 

10 


JUMP SET FOR NO CHOKE OR CHOKE COMPLETE 

LOOP 

10 

18 

JUMPED 

LOOP 

10' 


TEST LOOP-TRACE 

LOOP 

in 

19 

IF (TRL00Pi21f2l?20 

LOOP 

11 

20 

WRITE! 6 „ 2001 ) I BRC, LBRC 9 I SORR.KN.LSTG 9 1 PC * f SS« I CHOKE* JUMP*LBRCS* 

LOOP 

11 


1ISORRS*LSTGS,SPTPS,PTOPS1( I P 9 J U , DEL PR * DELL » SCR I T 9 LOPC 

LOOP 

11 

2001 

FORMAT! 3X12 I 5/3X4F 10.5* F 10.0, I 101 

LOOP 

11 

21 

RETURN 

LOOP 

11 


END 

LOOP 

11 
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APPENDIX 3S 


SIBFTC ST2 A FUL l ST, DECK , SDD 

CSTA2A 

DETERMINE INLET FLOW CONDITIONS TO ALL STATORS 
AFTER THE FIRST STATOR 

SUBROUTINE ST A2A 

REAL MFSTOP 
LOGICAL PREVER 

COMMON /SNTCP/G,AJ,PRPC, IC ASE , PREVER , MFSTOP , JUMP , LOP IN , I SC AS E , 

I K,GAMF, IP,SCRIT,PTRN, ISECT,KSTG,WTOL,RHOTOL,PRTOL,TRLOOP,LSTG, 
2LBRC, IBRC, I CHOKE, I SORR , CHOKE »PTGP SI (6,8) ,PTRS2(6,8) , TRDI AG , SC, RC , 
3DELPR,PASS, IPC,LOPC, ISS 


ST2A OOO 
ST2A 001 
ST2A 002 
ST2 A 003 
ST2 A 004 
ST2A 005 
ST2 A 006 
ST2A 007 
ST2A 008 
ST2 A 009 
ST2 A 010 
ST2 A Oil 
ST2 A 012 


C 


C 


C 


C 


c 


COMMON /SINIT/H1(6,8),H2(6,8),DP0(6,8J,DP1C6,8) ,DP1A(6,8 ) ,DP2(6,8)ST2A 013 
1,DP2A(6,8) ,CSALF1( 6,8) ,ALF1(6,8) ,CSBET2(6,8) ,BET2 (6,8) ,RADSD (6, 8 ) , ST2 A 014 


2RADRD(6,8) , ANN1( 6, 8} ,ANN2(6,8) » ANN 2 A (6,8) , ANN1 A ( 6,8) ,U1A(6,8) , ST 2 A 015 
3U2 (6,8 ) , ANNO (6,8 ) ,PTO( 6,8) ,TT0(6,8 ) , ALPHA0(6,8) ,PTP( 6, 8) ST2 A 016 

ST2A 017 
ST2A 018 

COMMON /SINPUT/ ST2A 019 

1PTPS,PTIN,TTIN,WAIR,FAIR,DELC,DELL,DELA, AACS , VC TD , STG, SECT.EXPN, ST2 A 020 
2EXPP,EXPRE,RG,RPM,PAF,SLI,STGCH,ENDJ0B,NAME( 10) , TITLE! 10) , ST 2 A 021 


3PCNH (6), GAM {6, 8) ,DR(6,8) ,DT ( 6, 8 ) , R WG ( 6 , 8 ) , ALPHAS ( 6 , 8 ) , AL PH A1 (6,8),ST2A 022 
4ETARS1 6,8) ,ETAS( 6,8) ,CFS I 6,8) , ANDO (6,8) .BETA 1(6,8 ) ,BETA2 (6,8 ) ,ETARST2A 023 
5R(6,8) ,ETAR{6, 8) , CFR ( 6 , 8 ) , TFR ( 6, 8 ) , ANDOR ( 6, 8 ) , OMEGAS ( 6 , 8 ) , ASO ( 6, 8 ) ST2 A 024 
6,ASMP0(6,8), ACMNO (6,8) »A1(6»8) ,A2(6,8) , A3 ( 6 , 8 ) , A4 ( 6 , 8 ) , A5 ( 6 , 8 ) , A6 ( ST2 A 025 

76.8) ,0MEGAR(6, 8) ,BSIA(6,8) ,BSMPIA(6,8) , BCMNI A (6, 8), 81(6, 8} ,B2(6,8)ST2A 026 

8,B3(6,8),B4(6,8) ,85(6,8) »B6(6,8),SESTHI(8),RERTHI (8) ST2 A 027 

ST2A 028 

REAL MO ST2A 029 

COMMON /SSTA01/CP0( 8) , PSO { 6 , 8 ) , VO ( 6 , 8 ) , TSO ( 6, ST2 A 030 

18) ,VU0(6»8) ,VZ0(6,8) , RHOSO (6,8) »PS1(6»8) , WGT 1(8) , TA1 (8 ) , WG1 ( 6, 8 ) , ST2A 031 
2 DPDRK 6,8) ,SI (6,8) , CPI ( 8 ) , PHI 1 ( 6, 8 ) ,TS 1 ( 6, 8 ) , V 1 ( 6, 8 ) ST2 A 032 

3 , RH0S1 (6,8) ,ALF1E(6,8) »VU1 (6,8) »VZ1{6»8) , MO (6,8) ST2A 033 

ST2 A 034 

REAL MR1 A ST2A 035 

COMMON /SSTA1A/VU1AI 6,8) ,WG1A(6,8) , WGT1A { 8 ) , VZ1 A ( 6, 8 ) , CP1AI8), ST2A 036 
1 PS1 A ( 6, 8 ) ,RU1 A ( 6 , 8 ) , R1 A ( 6, 8 ) , BET1A ( 6, 8 ) , RI ( 6 , 8 ) ,TTR1 A( 6,8) ,PTR1A(6ST2A 037 

2.8) ,MR1A(6,8) ST 2 A 038 

ST2 A 039 

COMMON /SSTA2/V2<6,8) ,TTR2(6,8 ) ,PTR2(6,8) , WG2 ( 6 , 8 ) , WGT2 ( 8 ) ,TA2(8 ) ,ST2A 040 
I PS 2(6,8) , PH 12(6, 8) ST2A041 

ST2A 042 

REAL MR2.M2 ,MF2 ST2A 043 

COMMON /SFL0W2/TS2(6,8),CP2(8) , R2 ( 6, 8 ) , RH0S2 ( 6 , 8 ) ,BET2 E ( 6, 8 ) ,RU2(6ST2A 044 

1.8) , VU2 (6,8),DP0R2(6,8),VZ2(6,8),MR2(6,8),MF2(6,8)fM2(6,8) ST2A 045 

ST2A 046 

REAL M2A,MF2A ST 2 A 047 

COMMON /SSTA2A/WG2A(6»8) , WGT 2 A (8) ,VU2A{6,8) »VZ2A(6,8) ,PS2A(6,8) , ST2 A 048 
1ALF2A(6,8) ,TT2A( 6,8) ,PT2A(6,8) , TTB AR ( 8 ) , PTBAR ( 8 ) , STTO ( 8 ) , S PTO ( 8 ) , ST2A 049 
2M2A(6,8),MF2A(6, 8 ) , CP2A ( 8 ) , V2A ( 6, 8 ) , TS2 A ( 6, 8 ) , TAS ( 8 ) , P AS ( 8 ) ,GAMS(8ST2A 050 
3),CPS(8),DELHVD(6,8) ST2A 051 
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C 


01MLNS ION 


TT TS2A { 6 pH ) 


ID=~ 1 
I = IP 

TS2AUiK)=TS2* UK) 

VJR-RWG ( 5 * K I /RWG i 4 , K I 
SUMT = 0 * Q 
S IJ M L T = 0 c 0 
SUML P=0 <, 0 

WGT2A(K) = WR*WGT2iK ) 

12 VU2A{ i ,K) -VU2 { I,Ki*0P2 (l , K ) /DP 2 A (I v K ) 

WG2 A ( I * K t = WR *WG2 t I * K ) 

RHGSTR=RH0S2( UK ) 

1 V 12 Ail ,K) = WR*VZ2( UK)*ANN2(UK)*RH0S2( UK)/(ANN2AU y K5 *RHOSTl 
V2A( I*K) = SQRTtVU2AC UK) *VU2AC I * K ) ♦ VZ2A U ,K| *VZ2A { I ,K) ) 
IFU“IPK,2 S 4 

2 IF I GAMF ) 3 » 3 » 4 

3 TA2 A = .5*tTTR2(UK) + TS2A{I,K)) 

CALL GAMMAIPTR21 IPpKUTA2A ®FAIRpWAJR 9 GAM (5»K)) 

4 EX- { GAM ( 5 v K ) - 1 * I /G AM C 5 v K ) 

EXUU/EX 

CP2AtKI«RG*EXI/AJ 

CELT S= ! V2 I I ,K)*V2{ U K )-V2A I I *K )*V2 A C UK) )/ l 2 „ *G*A J*CP2 A * K) 1) 

T S 2 A { I s K T S 2 I UKUDELTS 
IFITS2AC I vKUGT.Go ) GO TO 32 
PREVER = o TRUE « 

MFSTOP = 2 o 
GO TO 30 

32 PS2A(I «K)-PS2( I »K) *( 1 .+DELTS/TS2 ( I »K) )«*EXI 
RH0S2A «144.*PS2AJ l * K )/ ( RG*TS2 A ( UK) I 

I F i ABS l RH0STR-RH0S2A i-loE-07) 6» 6 S 5 

5 RHOSTR-RHOS 2A 
GO TO 1 

6 SALF2A =VU2A( UK)/V2A( i*K) 

ALF2AC i f K )~ATAN2( SALF2A , SQRT < 1 o -S ALF2 A *SALF2A 

11 IF (I-IP)28.24,28 

24 IF C GAMF ) 25 v 25 *26 

25 TAS{K)=.5*(TA1(K)+TA2IK)I 
PAS(K> = .5*<PT0UP»K)+PT2Ai IP*K H 

CALL GAMMA ( PAS (K) jTASIKi » F A I R , WAIR » GAMS C K J I 
GO TO 27 

26 GAMS ( K ) = o 5* { GAM { 2j K UGAM £ 4t> K ) ) 

27 E4-GAMS I K ) / C GAMS C K U 1 ® ) 

CPS(K)=RG*E4/AJ 

28 OELHVDC UK)“(UlAtUK)*VUlA{ I>K)+U2(I e K)*VU2l I,K) ) / AJ/G 
M2 A { I ? K ) = V 2 A ( I v K)/SQRT(GAM{5yK)»G*RG*TS2A(I t K) ) 

DELTT*TFIU I »K)*DELHVD( UK) /CPS IK) 

TT2A { UK) = TT0( UK) -DEL TT 

TTTS2AC I y K!=l.+(M2Al I , K ) *M2 A{ ! «K )« (GAM( 5 » K) -1. I/2J 
PTPS2A = C TT T S 2 A ( UK) I * * E X I 

PT2AI I,K)=PS2AtI *K)*PTPS2A 
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MF2AU,K)=M2A( I , K > *COS { ALF2A t I , K ) ) 

IF ( ISECT-I ) 13,15, 13 

13 1= I + ID 

IF (1)14,14,12 

14 10=1 

I = I P + 1 D 
GO TO 12 

15 CONTINUE 

DO 16 1 = 1,1 SECT 
RW=ViG2A( l,K)/WGT2A(K) 

TR=TT2A(I,K)/TT2A( IP,K) 

PR=PT2A( I,K)/PT2A( IP,K) 

SUMT=SUMT+RW*TR 
SUMLT=SUMLT+RW*ALOG( TR ) 

16 SUMLP=SUMLP+RW*ALOG( PR ) 

E3=GAM(5,K)/(GAM(5,K )-l. ) 

TTBAR ( K ) =TT2A { IP,K)*SUMT 

PTBAR(K)=PT2A( I P , K ) *EXP ( SUMLP+E3* ( ALOG ( SUMT ) -SUMLT ) ) 

IF (K-KSTG) 17, 18,18 

17 STTG(K+1 ) =TTBAR ( K ) 

SPT0(K+1)=PTBAR(K) 

DO 23 1 = 1, I SECT 

29 SI ( I »K+1)=ALF2A{ I » K ) — RADSD(I,K+1) 

IF(SI( I.K+l) .GT. 1.5707) SI(I,K+1)= 1.5707 
IF(SI( I, K+l >.LT. -1.5707) S I ( I , K+l ) =-l. 5707 
I F ( OMEGAS ( I , K ) )8,8,7 

7 ETARS( I ,K + 1 ) = 1 .0 
EXPS 1=0. 

GO TO 117 

8 IF(SI( I.K+l) )9,9,10 

9 EXPS I=£XPN 
GO TO 117 

10 EXPSI=£XPP 
117 IF (PAF-1. ) 19,20,21 
C UNIFORM PROFILES 

19 PTP ( I,K+1)=PTBAR(K) 

PTO( I,K+1)= PTP ( I » K+ 1 ) 

1*{ 1 . +<TTTS2A( I , K )- 1 . )*ETARS< I , K + 1 ) * { COS ( SI { I ,K+1 ) ) **EXPS I ) )**EXI 
2/ { TTTS2A ( I , K ) )**EXI 
TTO ( I , K+ 1 ) =TTBAR (K ) 

GO TO 23 

C SAVE PROFILES 

20 PT P ( I » K + l ) =PT2 A ( I » K ) 

PTO ( I,K + 1)= PTP( I , K + 1 ) 

1*( l. + ( TTTS2A( I ,K )-l. )*E TARS (I.K+l)* (COS (SI ( l.K + 1 ) >**EXPSI) )**EXI 
2/ ( TTTS2A( I , K ) )**EXI 

GO TO 22 

C SMOOTH PRESSURE PROFILES 

21 PTP ( i , K + l ) = PTBAR (K ) * ((TTRA(I,K) /TTBAR (K))**E3 
PT 0 { I , K + l ) = PTP ( I , K + i ) 

!*(!. + { TTTS2AI I , K )- 1 . ) * t T ARS ( I , K+l ) * ( COS ( SI ( I , K+l ) ) **EX PS I ) ) **EX I 
2/ ( TTTS2 A ( I , K ) )**EXI 

22 TTO( I, K+l )=TT2A( I,K) 
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23 CONTINUE 

18 MFSTOP = NF2A( IP*K ) /AACS 
CALL CHECK ( J ) 

GO TO { 30 » 3 1 ) p J 

30 CALL DI AGT ( 5 ) 

31 RETURN 
END 


S T 2 A 158 
ST 2 A 159 
ST 2 A 160 
ST 2 A 161 
ST2 A 162 
ST 2 A 163 
ST2 A 164 


194 



oo o o o on o oo 


APPENDIX 3T 


$ I BFTC STI FULIST, DECK, SOD ST1 

CSTA1 STI 

SATISFY CONTINUITY OF FLOW AT EXIT OF ALL STATORS STI 

AFTER THE FIRST STATOR STI 

SUBROUTINE STA1 STI 

STI 

REAL MFSTOP STI 

LOGICAL PREVER STI 

COMMON /SNTCP/G, AJ,PRPC, I C ASE , PRE VER , MFSTOP , JUMP , LOP I N , I SC AS E , STI 

I K»GAMF, IP,SCRIT,PTRN, I SECT , KSTG, WTOL » RHOTOL , PRTOL , TRLOQP,LSTG, STI 

2LBRC » I BRC , I CHOKE , I SORR * CHOKE » P TOPS 1(6*8) ,PTRS2 (6,8) , TRDI AG , SC, RC , STI 
3DELPR»PASS, IPC,LOPC, ISS STI 

STI 

COMMON /SINIT/H1{6,8)»H2(6,8),DP0(6,8),DP1(6»8)»DP1A(6 S 8)»DP2(6»8)ST1 
l,OP2A(6,8) ,CSALF1(6»8) , ALF 1 ( 6 , 8 ) , C SB ET2 ( 6 , 8 ) , BET2 (6 , 8 ) , R ADSO ( 6 » 8 > , ST 1 
2RADRD(6,8 ) , ANNH 6, 8) ,ANN2(6, 8) ,ANN2A (6,8) , ANN1 A ( 6 , 8 ) , U 1 A ( 6 , 8 ) , STI 

3U2(6,8)t ANNO (6,8), PTO( 6,8 J , TTO ( 6, 8 ) , ALPHAOt 6 , 8 ) ,PTP{6,8) STI 

STI 

COMMON /SINPUT/ STI 

1PTPS,PTIN,TTIN,WAIR,FAIR,DELC,DELL,DELA, AACS , VCTD » STG, SECT , E XPN » STI 
2EXPP,EXPRE,RG,RPM,PAF,SLI,STGCH,ENDJQB,NAME(10) , T ITLE( 10) , STI 

3PCNH ( 6 ) , GAM (6,8) ,DR(6,8) , DT ( 6, 8 ) , R WG ( 6 , 8 ) , ALPH AS ( 6 , 8 ) , AL PHA1 ( 6 , 8 ) , ST 1 


4£TARS(6,8) , ETAS { 6, 8 ) , CFS ( 6 , 8 ) , ANDO ( 6 , 8 ) , BETA 1 ( 6 , 8 ) , BET A2 ( 6 , 8 ) , ET ARST l 


5R ( 6, 8 ) ,£TAR(6,8) ,CFR(6,8),TFR(6,8) , ANOOR ( 6, 8 ) , OMEGAS ( 6 , 8 ) , ASO ( 6 , 8 ) ST 1 
6,ASMP0(6,8) , ACMNO ( 6,8) ,A1(6,8) »A2( 6,8) ,A3(6»8) » A4 { 6, 8 ) , A 5 { 6 , 8 ) , A6 ( ST I 
76,8) ,OMEGAR{ 6,8) ,BSIA(6,8) ,BSMPIA(6,8) ,BCMNIA(6»8),B1(6, 8) ,82(6,8} STI 
8,83(6,8),B4(6,8) ,85(6,8) , B6 ( 6, 8 ) , SE STH I ( 8 ) , RERTH I (8) STI 

STI 

REAL MO STI 

COMMON /SSTA01/CP0{8), PSO ( 6 , 8 ) , VO ( 6 , 8 ) , TSO l 6 , ST 1 

18), VUO (6,8 ) , VZO ( 6, 8 > ,RH0S0(6,8 ) »PS1 ( 6,8) , WGT 1(8) , TA1 ( 8 ) , WG1 ( 6 , 8 ) , STI 
2 DPDR1(6,8),SI(6,8) , CPI ( 8 ) , PHI 1 ( 6 , 8 ) ,TS1 ( 6, 8 ) , V 1 ( 6 , 8 ) STI 

3,RH0S1 (6,8) , ALF IE (6,8) ,VU1( 6,8 ) ,VZ 1(6,8 ) ,M0(6,8) STI 

STI 

REAL M2A, MF2A STI 

COMMON /SSTA2A/WG2AI 6,8) , WGT2A { 8 } , VU2A { 6 , 8 ) » VZ2A ( 6, 8 } , PS2A ( 6 ,8 ) , STI 
1ALF2A(6,8) , TT2A( 6,8),PT2A(6,8) , TTB AR ( 8 ) ,PTBAR(8) , STT0(8) ,SPT0(8) , STI 
2M2A(6,8),MF2A(6,8),CP2A(8) , V2A ( 6 , 8 ) , TS2A ( 6, 8 ) , TAS l 8 ) , P AS ( 8 i , GAMS ( 8 ST 1 
1),CPS(8), DELHVDt 6,8) STI 

STI 

DIMENSION WGT1C(8),LC1(8>,FFA1{6,8) STI 

STI 

STI 

J=1 STI 

SCR 11=0.0 STI 

PTRMQ=1. STI 

WR=RWG(2,K)/RWG( 5, K— 1 ) STI 

DO 1 1 = 1,1 SECT STI 

WGH I ,K)=WR*WG2A( I ,K-1 ) STI 

ALPHAO ( I , K ) =ALF2A( I,K-1) STI 

PSO { I , K ) = PS2A ( I , K-l ) STI 

VO i 1 , K ) = V2A( I, K-l) STI 
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TS0(1»K) = TS2 A ( T 9 K~ 1 ) 

ST 1 

052 


VUOf I f K ) = VU2A { I,K"1) 

STi 

053 


VZ-O(lvK) = VZ2 A ( IpK-15 

ST 1 

054 


MOUvK) - H2AUtK-ll 

STI 

055 

1 

WGTKK ) =WR*WGT2A(K-1 l 

STI 

0 56 


I = IP 

STI 

057 


I0=-1 

STI 

058 


WGT !C{K)=OoO 

STI 

059 


LC 1 ( K ) =0 

STI 

060 


I FT I CHOKE )17,17»16 

STI 

061 

17 

IF(LOPIN) 18, 18,16 

STI 

062 

18 

I F C GAMF ) 2 S 2 ? 3 

STI 

063 

2 

TA1(K5=«95*TT0{ I P, K ) 

STI 

064 


CALL GAMMA! PTO { IP»KJ,TA1 I K ) , F A I R , W AI R* GAM ( 2 « K 1 ) 

STI 

065 

3 

FFA1 { I ,K J=WG1( I,K)*SQRT(TTO( UK } )/ ( 144o*PT0! I # K } » ANN1 C UK) 

STI 

066 

L*CSALF1 { I *K) ) 

STI 

067 


CALL PRAT I Q ( FF Al { I v K ) » GAM ( 2 , K 5 » RG » PTOP SI U * K ) 9 PRTOL ) 

STI 

068 

16 

CALL FLOW 1 { I ) 

STI 

069 


IF ( PREVER i GO TO 25 

STI 

070 


WGT1UK) = WGT1C(K HWG1I UK) 

STI 

071 


L=1 

STI 

072 


IF (PTOPSltI»K)oLEoPTOPSl(IP*KJ) L = I 

STI 

073 


I F ( l SECT- 1 J 7 9 7 9 4 

STI 

074 

4 

I = I -fr ID 

STI 

075 


I F C I )5 9 5,6 

STI 

076 

5 

I D= 1 

STI 

077 


I = I P + I D 

STI 

078 

6 

L=I~IO 

STI 

079 


PS1 ( 1, K)=PS1 CL S K HFLOATC ID) *DPDR1 1 L *K > * ( HI C I , K HH 1C L *K ) ) /2 0 

STI 

080 


PTOPSH I,K)=PTO( UKHPSX U ,K) 

STI 

081 


GO TO 16 

STI 

082 

7 

IFlLCl CKi 1 8 9 8 9 9 

STI 

063 

8 

LC 1 ( K ) =1 

STI 

084 


EX=GAM(2 s K5/(GAM{2,K)“lo ) 

STI 

085 


CALL PHIM( EX*ETAS(L»K) 9 PHIX, PRCRIT ) 

STI 

086 


PRUP= PTOPSH IP,Ki*PRCRIT/PTOPSl(L 9 K) 

STI 

087 


i M U +PRTOL 5 

STI 

088 


PRLG W= 1 0 0 

STI 

089 


GO TO 10 

STI 

090 

9 

LC1(K}=LC1{K}+1 

STI 

091 

10 

L = I BRC + 1 

STI 

092 


I F f I CHOKE 0 EQ 0 L! PTOPSH I P 9 K 1 = PROP 

STI 

093 


IF { WGT 1 ( K 1 -WGT 1C ( K ) )12 ? 15 v ll 

STI 

094 

11 

PRLOW=PTOPS 1 ( IP,K ) 

STI 

095 


GO TO 13 

STI 

096 

12 

PRUP-PT OPS 1 { I P » K ) 

STI 

097 

13 

W E = 1 .-WGT1 { K ) /WGT1C { K ) 

STI 

098 


J = J*1 

STI 

099 


IF( J-32)29*22, 22 

STI 

100 

29 

IF(ICHOKE-L) 30, 31 , 30 

STI 

101 

31 

SCR I T= ~WE 

STI 

102 


GO TO 15 

STI 

103 

30 

IF(LOPIN) 14* 14,15 

STI 

104 
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14 

PRE=!PT0PS1! IP*K)-PTRM0)/PT0PS1!XP»K) 

ST 1 

105 


IF ! ABS(PRE)-PRTOL)21,21,27 

ST 1 

106 

21 

CONTINUE 

ST 1 

107 


IF ( A8S(WE)-WT0L )15, 15, 20 

ST 1 

108 

27 

PTRM0=PT0PS 1 1 I P» K ) 

ST 1 

109 


WGT 1C( K ) =0. 0 

ST1 

110 


1 = I P 

ST 1 

111 


I D=- 1 

ST 1 

112 


IF (SCRITU9, 19, 15 

ST 1 

113 

19 

PT0PS1 ( IP,K)=.5*(PRL0W+PRUP) 

ST 1 

114 


IF ( PT0PS1 { IP»K ) .LE.PRCRIT ) PRPC=0. 

ST1 

115 


GO TO 16 

ST 1 

116 

20 

SCR IT= 1. 

ST 1 

117 

15 

IF ( TRLOOP • EQ • 0 • ) GO TO 28 

ST1 

118 

22 

WRITE(6,1000)K,PRUP,PRL0W,WE,PRCRIT, J,WGT1!K) , WGT1CIK) , ( WG1 ! L,K ) , 

ST1 

119 


1 L = 1 » 1 SECT ) 

ST 1 

120 


WRITE! 6,1001 ) (PTOPSUUK ) ,L = 1, I SECT) 

ST 1 

121 

1000 

FORMAT ( 2X , 2HK= 14, 2X,6H PRUP=F8 . 5 , 2 X , 6HPRL0W=F8 . 5 , 2X , 6H WE= 

ST 1 

122 


1F8.5,1X,7HPRCRIT=F8.5,2X,2HJ=I4/ 

ST 1 

123 


22X , 6H WGT 1 = F8 . 3, 2X , 6HWGT 1C=F 8* 3/ 

ST 1 

124 


32X , 6H WG1=6F8 .3 ) 

ST 1 

125 

1001 

FORMAT! 1X,7HPT0PS1=6F8.5) 

ST1 

126 

28 

CALL CHECK! J) 

ST 1 

127 


GO TO 123,24) , J 

ST 1 

128 

23 

CALL D I AGT ( 2 ) 

ST 1 

129 


GO TO 25 

ST1 

130 

24 

CALL LOOP 

ST1 

131 

25 

RETURN 

ST 1 

132 


END 

ST1 

133 
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APPENDIX 3U 


OVLL 
OVLL 
OVLL 
OVLL 
OVLL 
OVLL 
OVLL 
OVLL 
OVLL 
OVLL 
OVLL 
OVLL 
OVLL 

COMMON /SINIT/H1 (6,8) ,H2 (6, 8) ,DPO( 6,8) »DP1 (6,8) ,DP1 A(6,B ) , DP2(6, 8 )OVLL 
1 ,DP2A( 6, 8 ) , C5 ALF 1 ( 6, 8) , ALF1 { 6, 8) ,CSBET2 ( 6, 8 ) »8ET2 (6*8) ,RAD$D ( 6 9 8 ) ,OVLL 
2RADRD(6»8) p ANN1 ( 6 f 8 ) ® ANN 2 16 , 8 ) ®ANN2A(6»8)tANNlA(6y8) yUlA ( 6 , 8 ) P 
31)2(6,8) , ANNO (6, 8), PTO (6, 8) 9 TT0(6,8) , ALPH AO ( 6 » 8 ) , PTP ( 6 , 8 ) 


$ 1 8FTC OVLL FULIST »DECK»SDD 
COVRALL 

SUBROUTINE OVRALL 

PURPOSE IS TO CALCULATE STAGE PERFORMANCE VALUES 

AFTER FLOW ITERATION IS COMPLETED THROUGH THE LAST STAGE 

REAL MFSTOP 
LOGICAL PREVER 

COMMON /SNTCP/Gy AJ,PRPC, I C A SE , PRE VER « ME STOP , JUMP « LOP I N , ISCASEy 
1KN.GAMF, IP, SCR I T , PTRN» I SECT * KSTG, WTOL 9 RHOTOL * PRTOL t TRLOOP, LSTG * 
2LBRC s I BRC » I CHOKE » I SORR® CHOKE , PTGPSH 6 s 8 ) s PTRS2(6®8) ® TR D I AG » SC 9 RC 
3DELPR, PASS 9 I PC ,LOPC , I SS 


OVLL 

OVLL 

OVLL 

OVLL 

OVLL 

OVLL 


COMMON /SINPUT/ 

IPTPS,PTIN, TT IN ®WAIR® FAIR ®DELC® DELL ®DELA® A ACS® VCTD,STG 9 SECTyEXPN 

2EXPP jEXPRE® RG®RPM ®PAF ? SL I ® STGCH® ENDJOB ®NAME ( 10 ) ® T ITLEI 10 ) » 
3PCNH(6)®GAM{6,8)®DRt698),DT(6®lB),RV)G(698),ALPHAS(6®8)®ALPHAl{6,8),0VLL 
4ET ARS ( 6® 8 ) , E T AS ( 6 ® 8 ) » CF 5 ( 6 , 8 ) 9 ANOO ( 6 * 8 ) ® BETA1 ( 6 ® 8 ) ® BET A2 ( 6 , 8 ) » ET AROVLL 

SRI 69 8 ) ? ETAR t 69 8) ®CFR ( 69 8 ) 9 TFR i 6, 8) s ANDOR (6®8)®0MEGAS(6p8)y AS 0(6*8) OVLL 
6 9 ASMPO { 6® 8 ) v ACMNO ( 6 9 8 ) » A 1 f 6 9 8 ) , A2 I 6 9 8 ) 9 A3 ( 6 , 8 ) , A 4 ( 6 9 8 1 9 A 5 I 6 9 8 ) 9 A6 < OVLL 
76,8) 9 0MEGAR(6y8)®BSiA(6y8)96SMPIA(6y8) 9 BCMNIA(6 9 8i ,B1 £ 69 8 J p82?6®8)QVLL 
89B3(698)sB4C6y8)?B5(6p8) yB6I6»8) ySESTHI { 8) ,RERTHI (8 ) OVLL 

OVLL 

REAL MO 0VLL 

COMMON /SSTA01/CP0 ? 8 ) y PSO £ 6 9 8 I 9 VO ( 6 9 8 I 9 TSO ( 6 9 OVLL 

i8) s VUO£6®8)®VZO{6®8)® RHO SO ( 6, 8 ) 9 PS 1 ( 69 8 I , WGT1 ( 8 ) ®TA1(8) S WG1(6®8) » OVLL 

2 0PDR1(6,8),SI(6,8>, CPI ( 8 ) , PHI 1 ( 6, 8 ) ,TS1 ( 6, 8 ) , VI ( 6 , 8 ) OVLL 

3 » RHOS-1 ( 6 , 8 ) ® ALF1 E ( 6 » 8 ) ® VU1 ( 6, 8 ) , VZ 1 ( 6 ® 8 ) ® MO ( 6 ® 8 ) OVLL 

OVLL 

REAL MR1A 0VLL 

COMMON /SSTA1A/VU1A(6,8) »WG1A(6,8) ,WGT1A(8),VZ1A(6,8), CP1A(8), OVLL 

1PS1A(6,8),RU1A(6,8)9R1A(698I,BET1A(698),RI(6,8)9TTR1A(698) yPTRlA (60VLL 


2,8)yMRlA(6,8) 

COMMON /SSTA2/V2(698)»TTR2(6 t 
l PS 2 ( 6 y 8 )yPHI 2 ( 698 ) 


REAL MR2 9 M2 


» MF 2 


OVLL 

PTR2 { 698 ) 9 WG 2 ( 698 ) 9 WGT2 ( 8 ) 0 TA2 ( 8 ) ,OVLL 

OVLL 

OVLL 

OVLL 


COMMON /SFLOW2/TS2(6,8J,CP2{8),R2{6,8)»RH0S2(6,8)*BET2E(6,8)»RU2(60VLL 
1 , 8 ) # VU2(6,8> ,DPDR2(6,8) , VZ2(6,8) ,MR2 ( 6 , 8 ) ,MF2 ( 6 , 8 ) ,M2 ( 6 , 8 ) OVLL 

REAL M2A, MF2A 0VLL 

COMMON /SSTA2A/WG2AC 69 8 ) ,WGT2A'( 8 ) , VU2A(6 , 8 ) , VZ2A ( 6, 8 ) , PS2A ( 6,8 ) , OVLL 

!ALF 2 A( 6 y 8 ) ? TT2A(6y8) yPT2A(6 s 8 ) pTT 8 ARC 8 } yPTBARI 8 ) ySTTO( 8 ) s SPT0(8) » OVLL 
2 M 2 A ( 6 , 8 ) , MF 2 A ( 6 , 8 ) , C P2A ( 8 ) , V2 A ( 6 , 8 ) , TS2 A ( 6 , 8 ) , T AS ( 8 ) , P AS ( 8 ) , GAMS ( 80VLL 

3 )®CPS( 8 )®DELHVD{ 6 ® 8 ) 0VLL 

OVLL 

COMMON /S 0 VRAL/DELHT( 6 y 8 ),DELHTI ( 698 ) 9 DELHSI ( 698 ) » DEHAT I ( 698)9 OVLL 
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o n 


1ETATT(6,8) ,ETATS(6,8) ,ETATAT( 6, 8) 


C 


OVLL 052 
OVLL 053 

REAL MIS(8)»MIRS(8)* MR 1 AR (8)»MR2T(8) OVLL 054 

DIMENSION SA0I8) , S I S ( 8 > , SB 1 A ( 8 ) ,SIR(8) , SA2 ( 8 ) ,THCR ( 8 ) , EPS I { 8 ) * DELTOVLL 055 
l(8)tSETATT{8)*SETATS(8)f SET A AT { 8 ) , SWRTP { 8 ) , SNRT ( 8 ) , SDHT { 8 ) ,SETHC{80VLL 056 
2 ) > SNRTHC ( 8 ) , SWRTED ( 8 ) » SPTPT2 ( 8 ) * SPTPS2 ( 8 ) , ST2TT0 ( 8 ) , STRTTO { 8 ) , UPS ( OVLL 0 57 
38) ,UPUPS(8),URS(8) , URURS ( 8 ) , VI S I 8 ) »UPVIS(8) tURVIS(8) ,PSI PS ( 8 ) , PS IROVLL 058 
4S(8) ,RXP(8) ,RXR( 8) , DBETAR { 8 ) , DELHTS ( 8 > ,DEHTIS(8> ,DEHSIS(8) ,DHATIS(OVLL 059 
58) ,PAT2A(6,8),WGT0(8) OVLL 060 

OVLL 061 

DATA RSL,TSL, PSL ,GAMSL/53. 35045, 518. 688»14. 696, 1.4/ OVLL 062 

OVLL 063 
OVLL 064 


STTOt 1 )=TTIN 
SPTO 1 1 ) =PT I N 
T A0 = 0. 0 
PAO=0 • 0 
GAM0=0 • 0 
0UPUP=0.0 
OURUR=0.0 
0DELHT=0.0 

5 E1 = GAMSL/(GAMSL-1. ) 

DO 17 K=1 »KSTG 

IF ( GAMF ) 1 1 1 * 2 

1 TAO = TAO + T AS ( K ) 

PAO=PAO+PAS<K) 

GO TO 3 

2 GAMQ=GAMO+GAMS IK ) 

3 E2=GAM( 1,K)/IGAM( 1,K)-1. ) 

E3 = GAM(5»K)/( GAM ( 5 » K ) - 1 . ) 

E4 = GAMS(K)/(GAMS(K)-1. ) 

E5=l./E4 

DELHTS ( K ) =0. 0 

DEHTIS(K)=0.0 

DEHSIS(K)=0*0 

DHAT IS(K)=0.0 

DO 6 I = 1 » I SECT 

RW = WG2 A ( I » K ) / WGT 2A { K ) 

DELHT { I »K )=DELHVO{ I , K ) *TFR { I , K ) 

DELHTI ( I»K )=CPS(K)*TTO( I ,K ) * ( 1 ( P T2 A ( I , K ) /PTP ( I , K ) ) ** E5 ) 
ETATTI I »K)=OELHT ( I ,K)/DELHTI ( I »K) 

DELHSI ( I » K ) =CPSI K ) *TT0 ( I » X ) * { 1 .-(PS2A( I f K)/PTP(I*K))**E5) 
ETATSt I,K)=DELHT( I , K ) /DELHS II I , K ) 

PAT2 A ( I ,K) -PS2A( I , K ) * U . + ( GAM { 5 , K ) -1 . ) *MF2 A ( I , K ) *MF2 AI I » K ) 
1/2. )**E3 

DEHAT I ( I,K)=CPS(K)*TT0{I ,K ) * ( 1 .- ( P AT2 A 1 1 ,K ) /PTP ( I ,K))**E5) 
ETATAT { I»K)=DELHT( I, K) /DEHAT 1 1 I,K) 

DELHTS {K)=DELHTS(K)+RW*DELHT( I ,K) 
DEHTIS(K)=DEHTIS(K)+RW*DELHTHI,K) 

DEHS IS IK)=DEHSIS(K)+RW*D£LHSII £,K) 

DHATIS{K) = DHATIS(K )+RW* DEHAT I ( I,K) 

6 CONTINUE 

13 SA0(K)=ALPHA0{ IP ,K )*57 . 2 958 
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SIS(K)=SI< IP»K)*57.29!>fi 
SB1A IK )=BET1AUP ? K 1*57 <.2958 
SIR(K)=RIC lPvK >*57.2958 
SA2lKl=ALF2A{lP 9 K$*57.2958 
THCR ( K I = GAM { 1 9 K)*(GAMSL+1. J *RG*STTQ (K ) / 
i (GAMSL*(GAM( 1,K)+1. )*RSL*TSL) 

EPS I ( K 1 =GAMSL* £ ( GAM { 1 , K ) + 1 „ )/Z e ) **E2 / ( GAM ( 1 , K> * ( { GAMSL 
1+1. )/2. )**E1) 

DELT (K)=SPTO{K)/PSL 
SETATT«K)=OELHTS(K 1/DEHTIS£ K) 

$ETATS(K)=DELHTSiK ) /DEHSISCK) 

SETAATIK>=DELHTS(K J/DHATIS<K ) 

WGTG(K }=WGT1 (K J/RWGl 2 S K) 

S W R T P { K ) -~ WGTO(K)*SQRTt STTO(K) )/SPTO(K> 

SNRT(K}=RPM/SQRT£STTO(Ki ) 

SDHT (K>=DELHTS(K i/STTO«K> 

SETHC{Kl=DELHTS<K)/THCR(Ki 
RTHCR= SORT ( THCRI K > ) 

SNRTHC (K ) =RPM/RTHCR 

SWRTEDtKS =WGTO«K )*RTHCR*EPSI(K ) /DELT (K) 

SPTPT2(K}=SPTO(K )/PTBARf K1 
SPTPS2CK)=SPTO«K$/P$2UP s K J 
ST2TTO(K ) = TTBAR ( K > /STTO £ K ) 

STRTT0{K)=TTR1A£ IP *K ) /STTO C K ) 

UPS{ K ) = . 5* £ U1 A { iP,K S+U2 UP* KM 
UPUPS(Kl-UPS(KSi*UPS£KJ 
OUPUP=OUPUP+UPUPS£ K » 

URS(K)=.5*IU1AI1,K)*DR( 3 « K > /DP 1A U „ K > +U2 tl 9 K > *DR { 4 9 K »/DP2 U 9 K ) I 
URURSm=URS(K)*URS«K> 

OURUR=OURUR+URURS C K ) 

OOELHT »ODELHT+DELHTS C K i 
IF (DELHSIt IP 9 K) >14,14,15 

14 VIS(K)=1. 

GO TO 16 

15 VlS(K)=SQRT(2o*G*AJ*DELHSI ( IP,K> ) 

16 UPVIS<K)=UPSm/VIS(iO 
URVISI K J=URS(KI/VIS(K1 

PSIPS(K)I=G*AJ*0EEHTS{K >/ {2c*UPUPS(KJ ) 
PSIRS{K)=G*AJ*D£LHTS{KJ/(2o*URURS{K) ) 

RXPIK)=1 b -C l.-fPSl (IP,K!/PTPIIP,K) 5 **E 5 ) / (I . - t PS2 ( I P , K } / 

IPTPt IP*K) J **E5 ) 

VU1R-VU 1 ( l,K)*OPl( 1 » K J /DR C 2 , K } 

VIR^SQRTC VU1R**2+VZ1 f 1,K 5**2) 

PH1R=1 . / ( 1 ,.-VlR**2/i 2o*G*AJ*CPl (K )*TTO( 1 , K i *ET AS ( 1 , K IS) 
PTPSlR=PHlR**(GAMC2,K>/(GAM{2®K>~l.n*PTPtl,K>/PT0ll 9 K) 

RXR( K ) = !«.--( l.-C 1 ,/PTPSlR )**£5)/« 1 •— C PS2 1 1»K)/PTP !l,K)i **E5) 
DBETARf. Ki = ( RETlAt 1 »K5+BET2E( 1 9 K J } *57.2958 
MIS(K)=Vlf lP,K>/$GRTfGAM£ 2,K)*G*RG*TS1« IP,K> > 

TSlR=TTOt 1,K)~V1R**2/(2.*G*AJ*CP1 (K) } 

MtRSIK i =V 1R/ SORT f GAM f, 2 S K >»G*RG*TS1R) 

VU1AR-VU1A { l,Ki*OPlA( 1,K i/DR(3,K» 

V1AR = SQRT( VUlAR**2 + VZiA( 1 V K >**21 
T S 1 AR= TTG S 1 9 K > ~V 1 AR**2/ l 2. *G*A J*CP 1A i K ) > 
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Acceding page blank not filmed. 


RU1AR=VU1AR-U1A11,K)*DR{ 3,K)/DP1A! 1,K) 

R1AR=SQRT!RU1AR**2+VZ1A! 1,K)**2) 
MR1AR{K)=R1AR/SQRT(GAM{3,K)*G*RG*TS1AR) 

VU2T=VU2( I SECT ,K ) *DP2 ( I S ECT » K ) /DT { 4 , K ) 

V2T=SQRT( VU2T**2+VZ2{ ISECT,K)**2) 

TS2T = TS2( I SECT, K )+(V2< I SECT,K ) **2-V2T**2 ) / ! 2 . *G*A J*CP2 ( K ) ) 

RU2T =VU2T+U2 ( I SECT ,K)*DT ( 4 » K ) /DP2 ( IS ECT » K ) 
R2T=SQRT{RU2T**2+VZ2(ISECT»K)**2) 

MR2TIK )=R2T/SQRT (GAM{4»K )*G*RG*TS2T) 

17 CONTINUE 

IF I GAMF ) 4, 4 , 7 
4 T AO = TAO/ST G 
PAO=PAO/STG 

CALL GAMMA! PAO, T AO, FAIR, WAIR,GAMO> 

GO TO 8 

7 GAMO=GAMO/STG 

8 EO= ( GAMO- 1. I/GAMO 
CPO=RG/EO/ A J 
K=KSTG 

ODEHTI = 0 o 
ODEHSI = 0. 

ODHATI = 0. 

DO 9 1 = 1, I SECT 
RW=WG2A! I,K)/WGT2A(K ) 

ODEHTI = CPO*TTO(I , 1 >*< 1 ( PT2A ( I ,K ) /PTP ( I , 1 ) ) **E0) *RW+ODEHT I 
ODEHSI = CPO«TTOU,1)*U.-(PS2A{I,K)/PTPU,1))**EO}*RW+ODEHSI 

9 ODHATI = CPO*TTO(Ifl)*(l.“{PAT2A[I»K)/PTP(I»l))**EO) *R W+ODHAT I 
OPSIP=G*AJ*ODELHT/{ 2.*0UPUP) 

OPSIR=G*AJ*ODELHT/I 2.*0URURJ 
0WRTP=SWRTP( 1) 

OWNED=SWRTED( 1 )*SNRTHCU)/60. 

ONRTHC=SNRTHC< 1 ) 

ONRT = SNRT ( 1 ) 

ODHT =ODELHT/TTIN 
0PT0T2=PTIN/PT8AR(KSTG) 

OPTOS2=PTIN/PS2! IP,KSTG) 

OPTAT2=PTIN/PAT2A{ IP,KSTG) 

OET ATT = ODELHT/ODEHT I 
OET ATS =ODELHT/ ODEHSI 
OETA AT =ODELHT/ ODHATI 
OETHC=ODELHT/THCR( 1 } 

PRINT OUT FOR STAGE PERFORMANCE 

1 = 1 

WRITE! 6, 1000) NAME, TITLE, ICASE, ISCASE 
1000 FORMAT ( 1H1 , 21X,29HNASA TURBINE COMPUTER PROGRAM /6X,10A6/ 

1 6X , 1 0 A6/ 30X , 6HC ASE I 3 , 1H. , I 3/2 8X , 1 7HSTAGE PERFORMANCE /16X 
27HST AGE 1,6X,7HSTAGE 2,6X,7HSTAGE 3,6X,7HSTAGE 4/ ) 

IF {KSTG-4)19, 19,18 

18 KS=4 

GO TO 20 

19 KS=KST G 

20 WRITE!6,1001) (STTOCK),K=I,KS) 
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1001 FORMAT ( IX * 1 2H TT 02X , F 1 0. 1 , 3X , F 10 . 1 , 3X , F 10 . 1 , 3X , F 10 . 1) 

WRITE(6,1002) *SPT0*K),K=I,KS) 

1002 FORMAT* IX, 12H PT 02X , F 1 0. 3 , 3X , F 1 0 . 3 , 3X , FI 0 . 3 , 3X , F 1 0 . 3 ) 

WRITE* 6, 1003) ( WGT1 * K ) , K= I , KS ) 

1003 FORMAT* IX, 12H WG 02X , F10 . 3 , 3X , F 10 . 3 , 3X, F 10 . 3 , 3X , F 10 «> 3 ) 

WRITE* 6, 1004) ( DELHTStK) »K=I ,KS) 

1004 FORMAT ( IX, 12H DEL H2X , FI 0. 3 , 3X ,F 10 . 3 , 3X , F 10 . 3 , 3X , F 10 . 3 ) 

WRITE* 6, 1005 ) (SWRTP*K) ,K=I ,KS) 

1005 FORMAT* IX, 12H WRT/ P2 X , FI 0. 3 , 3X ,F1 0 . 3 , 3X, F 10 . 3 , 3X , F10 . 3 > 

WRITE *6, 1006) * SDHT ( K ) , K= I , KS ) 

1006 FORMAT* IX, 12H DH/ T2X , FI 0. 5 , 3X , F 10 . 5 , 3X , F 1 0 . 5 , 3X ,F 10 . 5 ) 

WRITE* 6, 1007) * SNRT { K ) , K= I , KS ) 

1007 FORMAT* IX, 12H N /RT2X,F1 0. 3 , 3X ,F 10. 3, 3 X ,F 10 . 3 , 3X ,F 10 . 3 ) 

WRITE* 6,1008) (SETATT(K) ,K=I ,KS) 

1008 FORMAT* IX, 12H ETA T T2X , F10. 5 , 3X , F 10 . 5 , 3X , F 1 0 . 5 , 3X , F 10 . 5 ) 

WRITE *6, 1009) *SETATS(K) ,K=I,KS) 

1009 FORMAT* IX, 12H ETA TS2X , F 1 0. 5 , 3X , F 10 . 5 , 3X , F 1 0 . 5 , 3X , F 10 . 5 ) 

WRITEI6, 1010) *SETAAT*K),K=I,KS) 

1010 FORMAT { IX , 1 2H ETA A T2X , F 1 0. 5 , 3X , F 1 0 . 5 , 3X , F 1 0 . 5 , 3X , F 10 . 5 ) 

WRITE* 6, 1011)* PT0PS1 * IP,K) ,K=I ,KS) 

1011 FORMAT* IX, 12H PTO/PS 12X , F 1 0. 3 , 3X , F 1 0 . 3 , 3 X , F 1 0 . 3 , 3X , F 10 „ 3 ) 

WRITE* 6, 1012) (SPTPT2*K) ,K=i ,KS) 

1012 FORMAT* IX, 12H PT0/PT2 , 2X , F 10 . 3 , 3X , F 1 0 . 3 , 3X , F 1 0 . 3 , 3 X , FI 0 . 3 ) 

WRITE*6,1013)*SPTPS2(K) ,K=I,K$) 

1013 FORMAT * 1 X , 1 2H PT0/PS22X , F 1 0. 3 , 3X , F 10 . 3 , 3X , F 1 0 . 3 , 3X , F10 . 3 ) 

WRITE* 6, 1014) * PTRS2 { I P , K ) , K= I , KS ) 

1014 FORMAT* IX, 12H PTR 1 A/P S 22X , FI 0. 3, 3X , F 10 . 3 , 3X , F 1 0 . 3 , 3X , F 10 „ 3 ) 

WRITE* 6, 1015) * ST2TT0*K ) ,K=I ,KS) 

1015 FORMAT* IX, 12H TT2/ TT02X , F 1 0. 5 , 3X , F 1 0 . 5 , 3X , F 10 .5 , 3X , F 10 . 5 ) 

WRITE *6, 1016) * STRTTO { K ) ,K=I,KS) 

1016 FORMAT* IX, 12H TTR 1/ TT02X , F 1 0. 5 , 3X , F 10 . 5 , 3 X, F 1 0 . 5 , 3X , F 10 . 5 ) 

WRITE*6,1017) *PS1* IP,K)»K=I »KS) 

1017 FORMAT t IX, 12H PS 12X , F10 . 3 , 3X , F 1 0 . 3 , 3X , F 1 0 . 3 , 3X , F 10 . 3 ) 

WRITE*6,1018) (TTR1A* I P , K ) , K= I , KS ) 

1018 FORMAT* IX, 12H TTR 12 X , F 1 0. 1 , 3X , FI 0 . 1 , 3 X , F 1 0 . 1 , 3X , F 10 . 1 ) 

WRITE (6, 1019) (PTR1A* IP,K) ,K=I,KS) 

1019 FORMAT * 1 X , 1 2H PTR 12X , F 1 0. 3 , 3X , F 10 . 3 , 3X, F 10 . 3, 3X , F 10 . 3 ) 

WRITE*6,1020) *PS2( IP»K),K=I,KS) 

1020 FORMAT* IX, 12H PS 22X , F 1 0 . 3 , 3X ,F 10 . 3 , 3X , F 1 0 . 3 , 3X , F 10 o 3 ) 

WRITE* 6, 1021 ) * TTBAR*K) ,K = I ,KS) 

1021 FORMAT* IX, 12H TT 22X , F 1 0 . 1 , 3X , F 1 0 . 1 , 3X , F 1 0 . 1 , 3X , F 10 <, 1 ) 

WRITE* 6, 1022) * PTBAR * K ) , K = I , KS ) 

1022 FORMAT * IX , 12H PT 22X,F10. 3, 3X , F 10 . 3, 3X, F 10 . 3 , 3X , F 10 . 3 ) 

WRITE* 6, 1023) * UP V I S * K ) , K = I , KS ) 

1023 FORMAT* IX, 12H UP/ V 1 2X , FI 0. 5 , 3X ,F10 . 5 , 3X , F 1 0 . 5 , 3X , F 10 . 5 ) 

WRITE* 6, 1024) * URVI S * K ) ,K=I ,KS) 

1024 FORMAT ( IX , 1 2H UR/ V 1 2X , F 10 . 5 , 3X ,F 10 • 5 , 3X , F10 . 5 , 3X , F 10 . 5 ) 

WRITE(6,1025) (PSIPS(K),K=I,KS) 

1025 FORMAT* IX, 12H PSI P2X , F 1 0. 5 , 3X , F 1 0 . 5 , 3X , F 1 0 . 5 , 3X , F 10 . 5 ) 

WRITE* 6,1026) *PSIRS*K) , K = I »KS) 

1026 FORMAT { IX, 12H PSI R2X , F 1 0. 5 , 3X , F 1 0. 5, 3X , F 10 . 5 , 3X , F 10 . 5 ) 

WRITE* 6, 1027 ) (RXP*K) ,K=I ,KS) 

1027 FORMAT* IX, 12H RX P2X ,F 1 0. 5, 3X , F 1 0 . 5 , 3X , F 10 . 5 , 3X , F 10 . 5 ) 
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WRITE (6, 1028) tRXRCK) ,K«1 ,KS) 

1028 FORMAT ( IK? 12H RX R2X * F 1 0 . 8 9 3X 9 F 10 » 5 5 3 X s F 1 0 . 5 , 3X 9 F 10 . 5 ) 

WRITE (6, 1029 H SAG ( K ! ? K- I ?KS) 

1029 FORMAT ( IX » 1 2H ALPHA 02XsFlQo3i>3XvF10.3,3X,F10.3 t 3X,F10o3) 

WRITE{6,1030USIS(K),K = I,KS) 

1030 FORMAT ( IX, 12H I STAT0R2 X , F 1 0. 3 , 3X ,F 1 0® 3 , 3 X , F 1 0 . 3 , 3X , F 10 o 3 ) 
WRITE{6,1031)(SB1A(K),K=I,KS) 

1031 FORMAT ! IX ? 12H BETA 1 A2 X 9 F 1 0 . 3 ? 3X » F 10 . 3, 3X 9 F 1 0 . 3 9 3X S F 10 o 3 ) 

WR I T E ( 6 , 1032 ) ( S IRt K I , K= I ,KS ) 

1032 FORMAT C 1X,12H I R0T0R2 X , F 1 0. 3 , 3X , F 1 0 . 3 , 3X , F 1 0 „ 3 * 3X , F 10 « 3 ) 

WRITE(6,1033)(SA2tK),K=I ,KS) 

1033 FORMAT ( IX, 12H ALPHA 22 X 9 F 10 . 3 , 3X , F 1 0 „ 3 , 3X « F 1 0 . 3 , 3X 9 F 10 c 3 ) 

WRITE! 6 f 1034 ) { DBETAR i K ), K= I , KS ) 

1034 FORMAT ( IX, 1 2H DBETA R2X » F 1 0. 3 , 3X ,F 10 «, 3 , 3X , F10 „ 3 » 3X ,F 10 «, 3 ) 

WR I T E { 6 , 1 035 M M 1 S C K ) , K = I 9 K S ) 

1035, FORMAT { IX, 12H M 1 2 X , FI 0® 5 $ 3X , F 1 0 . 5 , 3 X 9 F 10 . 5 9 3X , F 10 . 5 ) 

WRITE! 6, 10361 ( M I RS ( K 5 « K= I , KS \ 

1036 FORMAT { IX, 12 H Ml RT2X ,F10. 5 , 3X »F10„ 5, 3X,F 10 .5 , 3X ,F10«5 ) 

WRITE{6,1037MMR1A{IP,K),K*1,KSI 

1037 FORMAT ( IX, 12H MR 1 A2X , F 10« 5 , 3X ,F 10 . 5 , 3 X , F 10 o 5 , 3X 9 F 10 * 5 ) 

W ^ IT.E C 6 s 1 0 3 8 ) C MR 1 A R ( K I 9 K=I ,KS) 

1038 FORMAT! IX, 12H MR 1 A RT2X,F10« 5, 3X ,F10*5,3X,F10c5, 3X ,F10o5 ) 

WRITE(6,1039) (MRZ(IP,K),K=I»KS) 

1039 FORMAT ( IX, 12H MR 22X , FI 0® 5 , 3X ,F 1 0 . 5 © 3X , F 1 0 . 5 , 3X 9 F 10 . 5 ) 

WRITE! 6, 10401 (MR2TCKI, K=I ,KS ) 

1040 FORMAT C IX, 12H MR 2 TIP2X,F10«,5»3X,Fi0c5,3X,F.10o5,3X,Fi0«>5) 

WRITE! 6, 1041 H SETHC i K ) , K= I ,KS) 

1041 FORMAT ( IX, 12H E/TH CR2 X , F 1 0 0 3 , 3X ,F 1 0 . 3 , 3 X , F 10 . 3 , 3X , F 10 » 3 ) 

WRITE! 6 , 1042) { SNRTHC i K I , K- I ,KS ) 

1042 FORMAT C IX* 12H N/RTH C R2X , F 1 0® 1 , 3X ,F 1 0 » 1 , 3 X , F 10 . 1 , 3X , F 10 ® 1 ) 
WRITEC6, 1043) ! SWRTEDCK I ,K=l,KS) 

104 3 FORMAT C IX, 1 2H WRTHCRE/D2X,F10®l,3X s F10 o l,3X,F10r, l,3X,F!0ol) 
IF f KSTG‘”KS)22,22, 21 
21 WRITEI6, 1045INAME, TITLE, ICASE, ISC.ASE 

1045 FORMAT! 1H 1 , 2 IX , 29HNASA TURBINE COMPUTER PROGRAM /6X,10A6/ 

1 6X , 10A6/ 3 OX 96 HCASE I 3 , 1H o , 1 3/2 8X , 17HSTAGE PERFORMANCE /16X 
27HSTAGE 5,6X,7HSTAGE 6,6X,7HSTAGE 7,6X,7HSTAGE 8/ ) 


1 = 5 

KS = KST G 


22 

1044 


GO TO 20 

WRITE I 6, 1044 ) OPS IP , OPSIR ,ODELHT,OWRTP, ONRT ,ODHT ,0PT0T2 » 
10PT0S2 , 0PTAT2 , OETATT, OET ATS ,0E TAAT , OWNED , ONRTHC , OETHC 


FORMAT C //27X, 18H0VRALL 
1F10.5, 5X t 10HPS I R 
2F 10 . 5» 5X 9 1 OHN/RT 
3F10.S, 5X P 10HPT0/PS2 
^ F 1 0 « 5 ? 5X,10HETA TS 
5F10.5, 5 X 9 1GHN/RTH CR 


PERFORM ANCE/ 6 X, 9HPS I 
F 10 o 5 9 5X9HDEL H 
F10o5 9 5X9HDELH/T 
F 1 0 o 5 , 5X9HPT/PAT2 
F 10 o 5 9 5X9HETA TAT 
F10-5, 5X,9HE/TH CR 


P 

FlOc 5/6X,9HWRT/P 
F 1 0 o 5 / 6 X 9 9H PTO/ PT2 
F10c5/ 6 X, 9HET A TT 
F 10. 5 / 6 X 9 9HWNE/60D 
F 1 0 o 5 / ) 


RETURN 

END 


OVLL 263 
OVLL 264 
OVLL 265 
OVLL 266 
OVLL 267 
OVLL 268 
OVLL 269 
OVLL 270 
OVLL 271 
OVLL 272 
OVLL 273 
OVLL 274 
OVLL 275 
OVLL 276 
OVLL 277 
OVLL 278 
OVLL 279 
OVLL 280 
OVLL 281 
OVLL 282 
OVLL 283 
OVLL 284 
OVLL 285 
OVLL 286 
OVLL 287 
OVLL 288 
OVLL 289 
OVLL 290 
OVLL 291 
OVLL 292 
OVLL. 293 
OVLL 294 
OVLL 295 
OVLL 296 
OVLL 297 
OVLL 298 
OVLL 299 
OVLL 300 
OVLL 301 
OVLL 302 
OVLL 303 
OVLL 304 
OVLL 305 
OVLL 306 
OVLL 307 
OVLL 308 
OVLL 309 
OVLL 310 
OVLl 311 
OVLL 312 
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APPENDIX 3V 


$ 1 8FTC 
CINSTG 


INST 


FUL 1ST, DECK, SDD 


INST 
INST 
INST 
INST 
INST 
INST 
INST 
INST 
INST 
INST 
INST 
INST 
INST 
INST 
INST 
INST 

COMMON /SIN IT/HI (6,8) ,H2(6,8) ,DP0(6,8) .DPI (6, 8) , DPI A { 6 , 8 ) , DP2 ( 6 , 8 ) I NST 
1,DP2A{6,8 ) , CSALFK 6, 8) ,ALF1(6»8) ,CSBET2 (6,8) »BET2 (6,8) , R ADSD (6 , 8 ) , INST 


SUBROUTINE INSTG 
INTERSTAGE OUTPUT 

NUMBER OF SECTORS IS THREE OR LESS, HUB AND CASING VALUES ARE 
CALCULATED AND PRINTED 

NUMBER OF SECTORS IS MORE THAN THREE, ONLY SECTOR PITCHLINE 
VALUES ARE PRINTED 

REAL MFSTOP 
LOGICAL PREVER 

COMMON /SNTCP/G, AJ,PRPC, ICASE, PREVER, MFSTOP, JUMP, LOP IN, I SC AS E, 

IKN i GAMF ,IP,SCRIT,PTRN,ISECT»KSTG*WTOL»RHOTOL,PRTOL»TRLOOP»LSTG, 
2L8RC , I BRC » I CHOKE , I SORR , CHOKE »PTOPSl (6,8) , PTRS2 ( 6 , 8 ) , TRDI AG , SC , RC , 
3DELPR.PASS, IPC,LOPC, ISS 


2RADRD(6,8) , ANN I (6, 8) ,ANN2(6,8) ,ANN2A(6,8) ,ANN1A{6,8> ,UIA(6,8>, 
3U2 (6,8) ,ANN0(6,8),PT0(6,8) ,TT0(6,8) , ALPHA0(6,8) ,PTP(6,8) 


INST 

INST 

INST 

INST 

INST 

INST 


COMMON /SINPUT/ 

1PTPS,PTIN, TTIN,WAIR,FAIR,DELC,DELL , DEL A , AAC S , VCTD , STG, SECT,EXPN, 

2EXPP, EXPRE, RG, RPM, PAF , SL I , STGCH, END JOB , NAME (10) ,TITLE( 10), 

3PCNH(6) ,GAM( 6, 8) , DR ( 6, 8 ) , DT ( 6 , 8 ) , R WG ( 6 , 8 ) , ALPHA S ( 6 , 8 ) , AL PHA1 (6,8) , INST 
4ETARS(6,8) , ETAS (6, 8) ,CFS(6,8), ANDO (6,8) , BETA 1 ( 6 , 8 ) , BET A2 ( 6 , 8 ) , ET AR I NST 
5R(6,8) ,ETAR(6, 8) ,CFR ( 6 , 8 ) , TFR ( 6 , 8 ) , ANDOR ( 6, 8 ) , OMEGAS (6 , 8 ) ,AS0(6,8)INST 
6,ASMP0(6,8) ,ACMNO( 6,8) ,A 1(6,8) , A2 ( 6 , 8 ) , A3 ( 6 , 8 ) , A4 < 6 , 8 ) , A5 ( 6 , 8 ) , A6 (INST 

76.8) , OMEGAR (6,8) , BS I A ( 6 , 8 ) , BSMP I A ( 6 , 8 ) , BCMNI A ( 6 , 8 ) ,81(6,8) ,82 (6, 8)1 NST 

8 ,83(6,8 ) ,B4(6,8) ,B5(6, 8 ) ,B6{6, 8) ,SESTHI ( 8 ) , RERTH I (8) INST 

INST 

REAL MO INST 

COMMON /SSTA01/CP0(8), P SO ( 6 , 8 ) , VO ( 6 , 8 ) , TSO ( 6 , INST 

18 ) , VUO (6,8) ,VZO( 6,8) ,RH0S0(6,8) , PS 1(6,8) ,WGT1(8) , TA1 (8 ) , WG1 ( 6,8 ) , INST 
2 DP DR 1(6, 8) , S I ( 6 , 8 ) , CPI ( 8 ) , PHI 1 ( 6 , 8 ) , TS 1 ( 6 , 8 ) , V 1( 6 , 8 ) I NS T 

3.RH0S1 ( 6,8 ) , ALF1E( 6,8) , VU1 ( 6,8 ) , VZ 1 ( 6, 8 ) ,M0( 6 , 8 ) INST 

INST 

REAL MR1 A INST 

COMMON /SSTA1A/VU1A(6,8) ,WG1A(6,8) ,WGT1A(8) ,VZ1A(6,8), CP1A(8), INST 

1PS1A(6,8) ,RU1A(6,8) , R 1 A ( 6 , 8 ) ,BET1A(6,8) ,RI (6,8) ,TTR1A(6,8) ,PTR1A(6INST 

2.8) ,MR1A(6,8) INST 

INST 


000 

001 

002 

003 

004 

005 

006 

007 

008 

009 

010 

011 

012 

013 

014 

015 

016 

017 

018 

019 

020 
021 
022 

023 

024 

025 

026 

027 

028 

029 

030 

031 

032 

033 

034 

035 

036 

037 

038 

039 

040 

041 


COMMON /SSTA2/V2( 6,8) ,TTR2(6,8) ,PTR2(6,8) , WG2 ( 6 » 8 ) » WGT 2 ( 8 ) ,TA2(8) , INST 042 


1 PS2(6,8) , PH 12(6,8) INST 043 

C INST 044 

REAL MR2 , M2 ,MF2 INST 045 

COMMON /SFL0W2/TS2(6,8) »CP2(8) , R2 ( 6 , 8 ) , RH0S2 ( 6 , 8 ) ,BET2 E ( 6, 8 ) ,RU2 ( 6 INST 046 

1 , 8 ) , VU2( 6, 8 ) , DPDR2 ( 6, 8 ) , VZ2 ( 6, 8) , MR2 ( 6 , 8 ) , MF 2 t 6 , 8 ) , M2 ( 6 , 8 ) INST 047 

C INST 048 

REAL M2A,MF2A INST 049 


COMMON /SSTA2A/WG2A( 6,8) » WGT2A ( 8 ) ,VU2A(6,8) ,VZ2A(6,8),PS2AC6,8) , INST 050 
1ALF2A(6,8) ,TT2A( 6,8) ,PT2A(6,8) ,TTBAR( 8 ) , PTBARI 8 ) , STTO( 8 ) ,SPT0(8) , INST 051 
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C 


C 


C 


2K2A(6* 8) *MF2At6»8> *CP2A{8) » V2A « fc » 8 I » TS2 A .{ 6» 8 J » TAS ( 8 ) , PAS i 8 ) , GAMS l 8 INST 


3 ) *CPQ( 8 ) »DELHVD( 6, 8 ) 

COMMON /SOVRAL/DELHT l 6 » 8 ) ? DELHTI ( 6 » 8 I » DELHSI 1 6 p 8 i «DEHAT I C 6 * 8 ) 
1ETATT(6*8) »ET ATS( 6*8) f ETATAT( 6*81 


INST 

INST 

INST 

INST 

INST 

INST 

INST 

INST 

INST 


COMMON STDPO { 7 ) ? STPTO { 7 1 * ST ALF £ 7 ) J STS I 17? 5 STVO ? 7 } s STVUO ! 7 1 « 
ISTVZ0(7) *STTS0(7)*STPS0[ 7) .STDENOC7) * STMO C 7 ) , STOPK 7 1 » ST ALEE ( 7 ) * 

2STDELA(7),STV1(7) # STVUU7>,STVZ1(7»,STTSH7),STPSH7),STDEN1C7), 

3STM^ C 7 ) 1 1 W I I NC C 7 i » CPS C 7 I » STDP1 A i 7 ) 9 

4STPTRU7)*STBETn7)*STRI t 7 ) * STRIA! 7) *STRU1A[ 7 ) * STMRl A< 7) *STU1A( 7 ) * INST 
5$TDP2(7)fSTB£T2f7)*SDBETA!7)*SR2(7)» SRU2 £ 71 p SMR2 C7)*$U2£7lsRX£?S9 INST 
6STDELHC7) v S TPS IC 7 ) « SET ATT i 7 I 9 SET ATS t 7 1 »SETAAT!7) *RZW1NC£7! , INST 

7 CPR 17 ) *STPT2!7I *STTT2!7) *STV2 !7) »STVU2!7>* INS1 

8STALF2C 7)*STMF2( 7) *STTTRIC7)»STVZ2«7I *STTS2(7) *STPS2 17) * STDEN2 !7) » INST 


9STM2I7) ,STTT0!7) ,LJ* JJ*K 


DO 9 K = 1 ? KS T G 
El= l GAMS ( K i — 1 . I /GAMS I K I 
E2-GAM { lr K i / ( GAM C 1 v K 1“ 1 . I 
\E3.=GAM12*K)/(GAMC2*K)-lo l 
E4=GAM 1 3*K ) / ! GAM !3*K !-l • 5 
E5=GAM(4*K)/!GAM!4*K)-1. ) 

E6 = GAM { 5? K l / i GAM { 5*K ) - 1 . I 
RELOCATE PITCHLINE VALUES 
JMSECT + 1 
DO 5 I - 1 * ISECT 
KS«J-I+1 

STTTOC KSI=TTOiKS-l»KI 
STDPO! KS)=DPO!KS-l*K). 

STPTO{KSI“PTP|KS“ljiKSf 
STALF(KS)=ALPHAOCKS-l*K) *57.2958 
STS I CKS) = SH KS-1*K 1*57 . 2958 
STVO CKS )~V0 ( K$-l pK) 

STVUGC KS)=VU0{KS“1®KI 
STVZOCKS i^VZCHKS-loK! 

STTSG{KS)=TSO£KS-lt>Kj 
STPSOtKS ) “-PSOCKS-1 *K ) 

STDEN0!KS)=144.*STPS0!KS)/STTS0(KS)/R6 
STMOCKS J“MO£ KS-1 *K ) 

STDP1! KS)-DP1 (KS-1*K) 

STALEE CKS I=ALF1E [KS-1* K ) *57. 2958 

STDELACKS ( ALPHAO ! KS-1 * K) +ALF IE ! KS-1* K ) ) *5 7 .2958 
ST V 1 ?KS !=VU KS-1 *K ) 

STVU1!K$)=VU1!KS~1*K) 

STVZ1!KS)=VZHKS-1pKJ 

STTS1(KS)=TS1(KS-1,K) 

STPSKKSI-PSICKS-I 9 KJ 
STDEN1 £KS ) -RHOSHKS- 1»K) 

STM1 (K$ ) -VH KS-L *K ) / C SQRT ! GAM ( 2 * K ) *G*RG*TS1 ! KS-1 pK} ) ! 
ZS =-2.*ALFlE[KS-l»K) -1*570796 


INST 

INST 

INST 

INST 

INST 

INST 

INST 

INST 

INST 

INST 

INST 

INST 

INST 

INST 

INST 

INST 

INST 

INST 

INST 

INST 

INST 

INST 

INST 

INST 

INST 

INST 

INST 

INST 

INST 

INST 

INST 

INST 

INST 

INST 

INST 

INST 

INST 


ZWI INCCKSI^COSI 


ZS )*{ SIN[ ALPHAOtKS-1 »K) )*COSC ALF 1 E ! KSINST 


052 

053 

054 

055 

056 

057 

058 

059 
06C 
061 
062 

063 

064 

065 

066 
067 
066 
065 
07C 

071 

072 

073 

074 

075 

076 

077 
076 
075 
08C 
081 
082 
082 
08* 
081 
Q8< 
081 
081 
Q8 C 
09( 
09] 
091 

09: 

09' 

09! 

09^ 

09 
091 
09' 
101 

10 
10 , 
10 . 
10 
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1-1, K) )/(COS( ALPHAO(KS-l.K) ) *S l N ( ALF1 E ( KS-1 , K ) ) )+l. ) INST 105 

CPSfKS )=!.-( STVOtKS )/STVl(KS ) )**2 INST 106 

STDP1A(KS)=DP1A(KS-1,K) INST 107 

STPTR1 (KS )=PTR1A(KS-1,K) INST 108 

STTTR1(KS}=TTR1A(KS“1,K} INST 109 

STBET1(KS)=BET1A(KS-1,K)*57.2958 INST 110 

STRI (KS)=RI (KS-1,K)*57.2958 INST 111 

STR1AIKS )=R1A(KS-1 ,K) INST 112 

STRU1A(KS)=RU1A(KS— 1,K} INST 113 

STMR1A(KS)=MR1A(KS-1,K) INST 114 

STU1A(KS )=U1A(KS-1,K ) INST 115 

STDP2(KS)=DP2(KS-1,K) INST 116 

STBET2(KSl=BET2E(KS-l,K)*57.2958 INST 117 

SDBETA(KS)=(BET1A(KS— 1,K)+BET2E(KS-1,K) )*57.2958 INST 118 

SR2(KS)=R2(KS-1,K> INST 119 

SRU2tKS)=RU2(KS-l,K) INST 120 

SMR2(KS)=MR2(KS-1,K) INST 121 

SU2( KS } =U2 ( KS-1, K ) INST 122 

RX(KS)=l.-( l.~(PSl (KS-1, K)/PTP( KS-1, K) ) **E1 ) / ( 1 .- ( PS2 { KS-1 ,K ) / INST 123 

1PTP(KS-1,K) )**E1) INST 124 

STOELH ( KS )= DEL HT (KS-1 » K ) INST 125 

STPSI (KS)=2.*G*AJ*DELHT(KS-1,K ) / ( U1A ( KS- 1 ,K } *Ul A { KS-1 » K ) INST 126 

1+U2 (KS— 1»K)*U2(KS-1»K) ) INST 127 

SETATT(KS)=ETATT(KS-i,K) INST 128 

SETATS(KS)=ETATS(KS— 1,K) INST 129 

SETAATIKS ) =ET ATAT ( KS- 1 , K ) INST 130 

ZR = -2.*BET2E (KS-1,K) -1.570796 INST 131 

RZWINCIKS )=COS( ZR ) * ( S I N ( BE T1 A ( KS-1 , K J ) *COS ( BET2E ( KS- I NST 132 

11, K) )/ ( COS ( BET 1A ( KS-1 »K ) }*SIN(BET2E( KS-1 *K ) ) )+l . ) INST 133 

CPR(KS)=1.-(STR1A(KS)/SR2(KS) )**2 INST 134 

STPT2(KS)=PT2A(KS-1,K> INST 135 

STTT2(KS)=TT2A(KS— 1,K) INST 136 

STV2(KS)=V2A(KS-1,K) INST 137 

STVU2 (KS)=VU2A(KS-1»K) INST 138 

STALF2(KS)=ALF2A(KS-1,K)*57.2958 INST 139 

STMF2(KSI=MF2A(KS-1,K) INST 140 

STVZ2(KS)=VZ2A(KS-l,KJ INST 141 

STPS2(KS)=PS2A(KS-1,K) INST 142 

STTS2(KS)=TS2A(KS-1,K) INST 143 

STM2 (KS)=M2A(KS-1,K) INST 144 

STDEN2 (KS )=144.*STPS2(KS )/STTS2(KS }/RG INST 145 

> CONTINUE INST 146 

IF ( ISECT-3I3, 3,6 INST 147 

CALCULATE HUB VALUES INST 148 

l LJ=1 INST 149 

J J= I SECT + 2 INST 150 

I=1 INST 151 

L=1 INST 152 

$TDP0{ 1 ) =DR { 1 , K ) INST 153 

R1=DP0( I,K)/DR( I,K> INST 154 

STDP 1 ( 1 ) = DR ( 2 * K ) INST 155 

R2=DP1( I,K)/DR(2,K) INST 156 

STDP1A( 1) =DR ( 3 »K > INST 157 
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c 


c 


R3=DP1A( I (K l/DRl 3»K) 

STDP2!L)=DR(4,K) 

R4=DP2 f 1, K) /DRC4»K ) 

TALF = SIN! ALFH I,Kl }*R3/C0S!ALF1! I ?K) ) 

R5=DP2A!I*K) /OR ( 5 » K I 

STATION 0 STATOR INLET 

10 STTTO! L)=TT0{I „ K } 

STPTOt L)=PTPC I »K I 
STVZO! L J^VZO! I S K) 

STVUOi L i=VU0( I s K )*R1 

STV0(L I=SQRT(VZ0( I fi K)*VZ0tI # K } +STVUO { L) *STVUO C L) ) 

STTSQ ! L ) =TT0 ! I »K )-STV0 ( L)*STV0 (L ) / { 2 .*G*A J*CP0 ( K ) i 
STPS0(L I=PS0! I s K$*!STTS0!L!/T$0U ,K) S**E2 
STDENO! L 1=144 o *STPS0(L 1 / ( RG* STTSO t L > ) 

STALE! L)=AT AN2! STVUOIL) , STVZO C L > I *57® 2958 
STSI (L) = STALF( U-ATAN2! SINC RAOSD U „ K H *R1 *COS { RADSD! I » K) ) } 

1*57® 2958 

A S OH = SORT { GAM ! I « K 1 *G*RG* STTSO! L 1 1 
STMOCL ) =STVO ( L 1 / ASOH 

STATION 1 STATOR EXIT 

STVZ 1 ! L 1 = VZ 1 ! I ,K) 

STVU 1 ! L ) =VU 1 C I «K i*R2 

$TV1!L)=SQRT!VZ1! I*K)*VZ1{ I ,K}-s-STVUl !Ll*$TVUl!U ) 

STTS1! L 1 = TTO! I,K )-STVl C L I *STV1 1 L ) / (2 •*G* AJ*CPHK ) 1 

STPS1C L J = PS1 { I ?K )* i STTS1 CL * /TSUI »K)i**E3 

ST0ENl(L> = 144c*STPSHU/STTSnLJ/RG 

STALFE!Li=ATAN2! STVU1CL) ,STVZ1 I L 11*57® 2958 

STDELA{U=STALF(L)-5-STALFE(U 

AS1H=SQRT { GAM! 2»K) *G*RG*STTS1 1 LI 1 

STM1CL )=STV1! D/AS1H 

ZS =“2o*STALFE!L)/ 57.2958 -1.570796 

ZWIINC(U = COS! ZS3*CSTVUG!L1*STVZ1{L) /! STVZO ! L) *STVU1 ! L) ) + 1. ) 
CPS!LI=lc-ISTVO!L}/STVl! L) 1**2 

STATION 1A ROTOR INLET 

VU1 AH=VU1 A { I » K J *R3 
STRU1A(L)*VU1AH-U1A( UK) /R3 

STBET1 ! L 1 = AT AN2 1 STRU 1 A < L ) , VZ1A ( I »K) ) *57.2958 
T=TALF“!TALF/R3 - S I N ! RADRD ( I * K )) /COS ( RADRD ! I ¥ K H ) /R3 
STRI !U=STBET1!L HATAN2! T,l. 1*57.2958 

STRIA! L ) = SQRT f STRU1A{L1*$TRU1AUHVZ1A ! I » K ) *VZ1 A ! I ,K ) ) 

V 1 A 1 AH=VZ 1 A ! I s K > *VZ1A{ I , K 1 +VU1 AH* VU1 AH 
DELTSH-IVl! I ,K I* VI ( I s K 1 -VI A 1 AH 1 / ( 2 „ *G*A J *CP 1 A ! K I ) 

T S 1 A H = T S 1 ( I f K 1 *DELTSH 

STMR1AILJ =STR1A(LS /SORT! GAM! 3 ? KI*G*RG*TS1AH) 

TTRSH*1.+STMR1A! L)*STMR1A(L)*CGAM(3 # K)-1. 1/2. 
STTTR1(L)=TS1AH*TTRSH 
IF (RI ( I*K) )2 9 2p7 
2 EXPR I=EXPN 
GO TO 11 
7 EXPR I =EXPP 

11 PTRSH=! lo+ITTRSH-lo )*ETARR ( I s K!*COS!RI ( I S K)1 **EXPRI)**E4 
PS 1 AH= PS 1 ! I ,K)*( 1.+DELTSH/TS1! I S K) J**E4 
STPTR1!LI=PS 1 AH*PTRSH 


INST 

158 

INST 

159 

INST 

160 

INST 

161 

INST 

162 

INST 

163 

INST 

164 

INST 

165 

INST 

166 

INST 

167 

INST 

168 

INST 

169 

INST 

170 

INST 

171 

INST 

172 

INST 

173 

INST 

174 

INST 

175 

INST 

176 

INST 

177 

INST 

178 

INST 

179 

INST 

180 

INST 

181 

INST 

182 

INST 

183 

INST 

184 

INST 

185 

INST 

186 

INST 
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INST 
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INST 

189 

INST 

190 

INST 

191 

INST 

192 

INST 
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INST 
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INST 

195 

INST 

196 

INST 

197 

INST 

198 

INST 

199 

INST 

200 

INST 
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INST 

202 

INST 
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INST 
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INST 
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INST 

206 

INST 

207 

INST 

208 

INST 

209 

INST 
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STU1 A( L )=U1A ( I,K)/R3 

STATION 2 ROTOR EXIT 

VU2H=VU2I I»K)*R4 
SRU2 (L )=VU2H+U2( I*K)/R4 

STBET2{L)=ATAN2(SRU2{L ) »VZ2( I,K) 1*57.2958 
SDBETAtU^STBETl (L )+ST8ET2(L) 

SR2( l)=SQRT(SRU2 (L )*SRU2 (L )+VZ2( I ,K)*VZ2 (I ,K) ) 

V2V2H = VZ2 ( I ,K)*V f Z2( I , K )+ VU2H*VU2H 

DELT SH= ( V2 ( I,K)*V2( I , K ) - V2 V2H ) / { 2 . *G* A J*CP2 ( K } ) 

TS2H=TS2f I » K ) +DELTSH 

SMR2(L)=SR2(L)/SQRTCGAM(4»K) *G*RG*TS 2H ) 

SU2 ( L ) =U2 ( I,K)/R4 

PS2H=PS2 ( I » K ) * ( TS2H/TS 2 { I » K ) )**E5 

RX(L ) = 1 • — C l.-(STPSl(L)/PTP( I , K ) } **E 1 ) / { I . - ( PS2H/PTP U , K ) )**E1) 
STDELH{L)=(STU1A{L)*VU1AH+SU2(L)*VU2H)*TFR(I ,K)/< G*AJ) 

ST PS I (L )=2.*G*AJ*STDELH{ L) /( STU1AIL) **2+SU2 { L ) **2 ) 

SETATT {L)=STDELH(L I/DELHTI II ,K ) 

SETATS(L)=STDELH(L)/DELHSI ( I»K ) 

SETA AT (L)=STDELH(L)/DEHATI ( I,K) 

ZR =-2.*STBET2(L )/57.2958 -1.570796 

RZWINC(L) =COS( ZR ) * ( STRU1AIL )*VZ2 ( I » K ) / ( VZ1 A ( I ,K ) *SRU2 ( L ) ) + 1 . ) 
CPR(L)=1.-(STR1A{L)/SR2(L) )**2 
STPT2 { L ) =PT2A { I, K) 

STTT 2 I L ) =TT2A { I,K) 

ST VZ 2 I L ) =VZ2A { I, K) 

STVU2 ( L ) =VU2 A ( I,K)*R5 
V2A2AH=STVU2(L )**2+VZ2At I,K)**2 
STV2IL )=SQRT( V2A2AH) 

STALF2(L)=ATAN2( STVU2IL) ,VZ2A( I,K) 1*57.2958 
DELTS2=(V2A( I »K)**2-V2A2AH)/{2.*G*AJ*CP2A(K) ) 

STTS 2 ( L ) =TS 2 A ( I,K)+DELTS2 

STPS2IL )=PS2A( I,K)*( 1 . +DEL TS2/TS2A ( I ,K))**E6 
STDEN2(L)=144.*STPS2IL)/tRG*STTS2{L) I 
STM2IL >=STV2(L)/SQRTIGAM { 5 , K ) *G*RG*S TTS2 ( L ) > 

STMF2{L)=ST«2{L) *COS( STALF2IL) /57.295S) 

IF (L.GT.l) GO TO 8 

CALCULATE TIP VALUES 
1= I S ECT 
L= IS ECT+2 
$TDPO{L)=DT( 1,K> 

R1=DP0( I,K)/DT(1»K) 

ST0PHL)=DTI2»K) 

R2=DP1 ( I»K)/DT(2»K) 

ST0P1A(L)=0T { 3»K) 

R3=DP1A( I,K)/DT( 3,K> 

STDP2(L)=DT(4tK) ' 

R4=DP; f I V K)/DT{4,K) 

T ALF=S IN{ ALF I ( I,K) ) *R3/C0S { ALF 1 (I , K ) } 

R5-OP2AI IjK ) / DTI 5,K) 

GO TO 10 
6 L J = 2 

J J= 1 SECT+ 1 
8 CALL WOUT 
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9 CONTINUE 

RETURN 

END 


INST 264 
INST 265 
INST 266 
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APPENDIX 3W 


$ I BFT C 
CWOUT 


WOUT 


FULIST, DECK.SDD 


WCUT 
WOUT 
WOUT 
WOUT 
WOUT 
WOUT 
WOUT 
WOUT 
WOUT 
WOUT 
WOUT 

COMMON /SINIT/H1 (6,8),H2 (6,8),DP0{ 6,8) , DPI (6,8) , DPI A ( 6 , 8 ) , DP2 { 6 , 8 ) WOUT 
1 1 DP2 A( 6,8) ,CSALF1( 6, 8) ,ALF1( 6, 8 ) ,CSBET2 { 6, 8 ) ,BET2 (6, 8) ,RADSD (6,8 ) ,WOUT 


SUBROUTINE WOUT 

REAL MFSTOP 
LOGICAL PR EVER 

COMMON /SNTCP/G, AJ,PRPC, IC ASE , PREVER , MFS TOP , JUMP , LOP IN , I SCAS E, 
1KN,GAMF, IP, SCRIT,PTRN, I SECT , KS TG , WTOL , RHOTOL , PRTOL , TRLOGP , LSTG , 
2LBRC, IBRC, I CHOKE, I SORR , CHOKE T P TOPS I ( 6 , 8 ) ,PTRS2 ( 6 , 8 ) ,TRDI AG , SC, RC , 
3DELPR, PASS , IPC,LOPC,ISS 


2RADRD( 6,8) , ANN 1 ( 6 , 8 ) , ANN 2 ( 6 , 8 ) , ANN 2 A (6,8) , ANN1 A ( 6,8) ,U1A (6,8 ) , 
3U2(6,8 ) , ANNO (6, 8) ,PT0(6, 8) , TTO { 6 , 8 ) , AL PH AO ( 6 , 8 ) ,PTP(6, 8) 


WOUT 

WOUT 

WOUT 

WOUT 

WOUT 

WOUT 


COMMON /SINPUT/ 

1PTPS,PTIN,TTIN,WAIR,FAIR,DELC,DELL,DELA, AACS , VCTD , STG, SECT,EXPN, 
2EXPP,EXPRE,RG,RPM,PAF,SLI,STGCH,ENDJOB,NAME(IO) ,TITLE( 10), 

3 PCNH { 6 ) ,GAM{6,8),DR(6»8),DT(6,8),RWG(6*8) , ALPHAS (6,8), ALPHA1 (6,81 ,WOUT 
4ETARS( 6,8) , ETAS ( 6 , 8 ) , CFS ( 6 , 8 ) , ANDO ( 6 , 8 ) , BETA1 ( 6 , 8 ) , BET A2 ( 6 , 8 ) , ET ARWOUT 
5R(6,8) ,ETAR(6, 8) ,CFR(6,8) ,TFR(6,8) , A NDOR ( 6 , 8 ) , OMEGAS ( 6 , 8 ) , AS 0 t 6 , 8 ) WOUT 
6,ASMP0(6,8 ) ,ACMNO( 6,8) ,A 1(6,8) »A2(6,8),A3{6,8),A4{6,8) , A5 ( 6, 8 ) , A6 ( WOUT 
76,8) ,0MEGAR(6,8),BSIA(6,8) ,BSMPIA(6,8) , BCMNI A ( 6 , 8 ) , B 1 ( 6 , 8 ) ,B2(6,8)W0UT 


8,B3(6,8),84(6,8),B5(6,8) , B6 ( 6 , 8 ) , SE STHI ( 8 ) , RERTH I (8) 


WOUT 

WOUT 

WOUT 

WOUT 

WOUT 

WOUT 


COMMON STDPO ( 7 ) , STPTO ( 7 ) , ST ALF { 7 ) , STS I ( 7 ) , ST VO ( 7 ) , STVUO ( 7 ) , 

ISTVZOt 7) , STTSOI 7 ) ,STPSO( 7) ,STDENO( 7 ) ,STM0(7) ,STDP1 (7) , STALFE (7) , 
2STDELA{7) ,STVI(7),STVU1(7) ,STVZ1(7) ,STTSI(7) ,STPS1(7),STDEN1(7) , 

3STM1 ( 7 ) , Z W 1 1 NC ( 7 ) , CPS ( 7 ) , STDP 1A ( 7 ) , 

4STPTR1 (7) , STBET 1 (7) »STRI (7) ,STR1A(7) ,STRU1A(7) ,STMR1A(7) ,STU1A ( 7 ) , WOUT 
5STDP2(7) ,STBET2( 7) , SDBET A ( 7 ) , SR2 ( 7 ) , SRU2 ( 7 ) ,SMR2 (7),SU2(7),RX(7), WOUT 
6STDELH(7),STPSI( 7) , SE TAT T ( 7 ) , SETAT S ( 7 ) ,SETAAT(7) ,RZWINC(7), WOUT 

7 CPR(7) ,STPT2{7) , STTT 2(7) ,STV2(7),STVU2(7), WOUT 

8STALF2(7> ,STMF2(7) ,STTTR1(7) , STVZ2 ( 7 ) , STTS2 ( 7 ) ,STPS2(7) , STDEN2 (7) » WOUT 
9STM2(7 ) ,STTTO( 7) ,LJ, JJ,K WOUT 

WOUT 

PRINT OUT FOR INTERSTAGE DATA WOUT 

8 WRITEC6, lOOOJNAME, TITLE, ICASE, ISCASE WOUT 

1000 FORMAT! IH1 , 20X29HNASA TURBINE COMPUTER PR0GRAM/6X 10A6/6X 10 A6/30X WOUT 

I5HCASE I 3 » IH • I 3/ 24X2 3H IN TER- ST AGE PERFORMANCE//) WOUT 

WRITE! 6, 1001 )K, ( STDPO ( I ) , I =L J , J J ) WOUT 

1001 FORMAT ( 5X5HS T A 02X12HSTAT0R I NLET 1 0X5HST AGE I 3 , 1H * /4X6HDI AM 02X, WOUT 

16F10.3) WOUT 

WRITE (6, 1002) ( STTTO( I ) ,I=LJ,JJ ) WOUT 

1002 FORMAT (10H TT 0,2X,6F10.1) WOUT 

WR ITE ( 6, 1C03 ) ( STPTO (I ) , I=L J , J J ) WOUT 

1003 FORMAT (10H PT 0,2X,6F10.3) WOUT 

WR I T E ( 6 , 1004 ) ( STALF(I) , I=LJ, J J) WOUT 

1004 FORMAT (10H ALPHA 0,2X,6F10.3) WOUT 

WRIT£(6, 1005) ( STSI ( I ) , I=LJ, JJ) WOUT 

1005 FORMAT (10H I S TA TOR , 2X , 6F 10. 3 > WOUT 
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WRITE (6* 1006) { ST VO ! I ) ♦ I = LJ, JJ) 

1006 FORMAT UOH V 0 P 2X ff 6F 10. 3 ) 

WRITE* 6* 1007 H S IVUO! I) * I = LJ* J J ) 

1007 FORMAT ( 10H VU 0 y 2X f 6F10.3) 

WRITEI6, 1008)1 STVZOU ) , I=LJ S J J) 

1008 FORMAT (10H VZ 0, 2X , 6F10. 3 ) 

WRITE ( 6, 1009 ) * STTSO ( I) • I=LJ » J J ) 

1009 FORMAT ( 10H TS 0,2X s 6F10 o li 

WRITE!6,1010) i STPSOU)#I = LJ,JJ) 

1010 FORMAT (10H PS 0»2X S 6F10.3) 

WRITE*6,1011) (STDENOU J , I = LJ, JJ) 

1011 FORMAT ( 10H DENS 0„ 2X * 6F 10. 5 > 

WRITE(6jl012) ( STMOU) » I = LJ» JJ) 

1012 FORMAT (10H M 0 r 2X,6F10.3) 

WRITE (6, 101 3) { STOP 1 ( I),l=L-J,JJ) 

1013 FORMAT {/5X5HSTA 12X1 1HST ATOR E X I T/4X6HDI AM 12X,6F10.3) 

WRITE! 6, 1014) ( STALFE < I ) f I = L J ? J J ) 

101't FORMAT UOH ALPHA 1 , 2X ? 6F 10. 3 ) 

WRITE* 6, 1015 ) ( STDELM I I , I=LJ» JJ) 

1015 FORMAT (10H DEL A S 2X,6F10.3) 

WRITE* 6, 1016)* STV1U) , I = LJ, JJ) 

1016 FORMAT UOH V 1,2X,6F10.3) 

WRITE* 6U017) * STVUim,I=LJ t JJ) 

1017 FORMAT UOH VU 1,2X,6F10.3) 

WRITE *6, 1018 ) t STVZ1U J , I^LJ, JJ) 

1018 FORMAT UOH VZ 1 v 2X s 6F 10o 3 ) 

WRITE! 6, 1019 H STTS1 U ) , I=LJ« JJ) 

1019 FORMAT UOH TS 1 , 2X , 6F 10 o 1 ) 

WRITE!6?1064) C STPS1I I ) , I~LJvJJ) 

1064 FORMAT UOH PS 1 » 2X y 6F 10 . 3 ) 

WRITE! 6,1020) CSTDEN1! U , I = LJ, JJ) 

1020 FORMAT UOH DENS 1 » 2X , 6F 10. 5 ) 

WRITEC6? 1021 ) ( STM1! I) « I = LJ, JJ) 

1021 FORMAT UOH M 1 S 2X ? 6F10.5) 

WRITE*6,1022) *ZWIINCt I), I=LJ,JJ> 

1022 FORMAT UOH ZWi I NC , 2X , 6F 10. 3 ) 

WRITE* 6, 1026) * CP S ( I) » I = L J » J J ) 

1026 FORMAT UOH CP S»2X,6F10.3) 

WRITE i 6 ,1000) NAME, TITLE, I CASE* ISCASE 
WRITE* 6» 1028 )K, * ST0P1A* I ) y I = L J » J J ) 

1028 FORMAT * 4X6HSTA 1A2X1IHR0T0R I NLET 1 OX 5HST AGE I 3 ,1 H . /3X7HD I AM 1A2X, 
i 6F 10 o 3 ) 

WRITE! 6* 1027) ISTPTR1* I ) , I=LJ, JJ) 

1027 FORMAT UOH PTR 1 A , 2X , 6F 10« 3 i 
W-RITE*6,1029) CSTTTRim , I = LJ, JJ) 

1029 FORMAT UOH TTR 1A, 2X »6F10. 1 ) 

WRITE! 6 9 1030 ) ( STBET1! I ) , I=LJ, JJ) 

1030 FORMAT UOH BETA 1 A , 2X , 6F 10 „ 3 ) 

WRITE* 6,1031 ) t STR I (I ) , I = LJ, JJ) 

1031 FORMAT UOH I ROTOR , 2X , 6F 10 . 3 ) 

WRITE(6» 1032) C S TR 1 A (I ) , I =L J , J J ) 

1032 FORMAT UOH R 1A, 2X ,6F10. 3 ) 

WRITE! 6, 1033) (STRU1AC I),I»LJ,JJ) 
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1033 FORMAT ! 10H RU 1A, 2X , 6F10. 3 ) 

WRITE! 6, 1034) ( STMR1A { I ) , I=LJ,JJ) 

1034 FORMAT !10H MR 1 A, 2X » 6F 10. 5 ) 

WRITE! 6, 1035 ) { STU1A! I ) , I=LJ» J J) 

1035 FORMAT (10H U 1 A , 2X » 6F 10. 3 ) 

WRITE! 6, 1037) ( ST0P2 ( I) , I =L J , J J ) 

1037 FORMAT! /5X5HSTA 22X10HR0T0R EX I T/4X6HD I AM 22X.6F1C.3) 
WRITE! 6, 1036) { STBE T2 ( I } , I = L J » J J ) 

1036 FORMAT (10H BETA 2,2X,6F10«3) 

WRITE!6,1038) { SDBETA { I ) , I = LJ, JJ) 

1038 FORMAT ! 10H DBETA , 2X , 6F 10. 3 ) 

WRITEI6, 1039) ! SR 2 ! I ) , I =L J , J J ) 

1039 FORMAT {10H R 2,2X»6F10.3) 

WR ITE! 6, 1040 ) ! SRU2! I J , I=LJ, JJ) 

1040 FORMAT !10H RU 2,2X,6F10.3) 

WR I TE ! 6 » 1041 ) ( SMR2! I } » I=LJ, J J) 

1041 FORMAT ! 10H MR 2,2X,6F10.5) 

WR I TE ! 6 » 1042 ) ! SU2 (I) » I = L J , J J ) 

1042 FORMAT { 10H U 2»2X,6F10.3) 

WRITE! 6, 1043) ! RX (I ) , I=L J , J J ) 

1043 FORMAT tlOH RX , 2X , 6F 1 0. 5 3 

WRITE! 6, 1044) ! STOELH! I } , I=LJ, JJ) 

1044 FORMAT !10H DELH, 2X , 6F 10. 3 ) 

WR I TE ! 6 , 1045 ) ( STPS I ! I) , I = L J , J J ) 

1045 FORMAT (10H PS I P,2X,6F10«5) 

WRITE! 6, 1046) (SETATT! I ) , I=LJ, J J) 

1046 FORMAT !10H ETA TT, 2X ,6F 10. 5 ) 

WRITE! 6, 1047) ( SETA TS (I) , I=L J » J J ) 

1047 FORMAT !10H ETA TS, 2X , 6F10. 5 ) 

WRITE (6,1048) { SETAAT ( I ) , I =L J , J J 3 

1048 FORMAT (10H ETA AT , 2X , 6F 10. 5 ) 

WRITE! 6, 1049) (RZWINC! I ) , I-L J, J J) 

1049 FORMAT !10H ZWI INC , 2X , 6F 10. 3 ) 

WRITE! 6, 1065) { CPR ! I) , I =L J , J J ) 

1065 FORMAT ( 10H CPR »2X,6F10.3) 

WRITE! 6,1053) ! STPT2! I ) , I=LJ,JJ) 

1053 FORMAT !10H PT 2 A, 2X , 6F 1 0. 3 ) 

WRITE! 6, 1054 ) { S TT T2 ! I) , I = L J , J J ) 

1054 FORMAT (10H TT 2A » 2X , 6F 1 0. 1 ) 

WRIT£(6,1055) ! STV2 ! I J » I = L J » J J ) 

1055 FORMAT (10H V 2A, 2X , 6F10. 3 ) 

WRITE! 6,1056) ! STVU2! I ), I=LJ,JJ) 

1056 FORMAT !10H VU 2A, 2X , 6F 1 0. 3 ) 

WRITE! 6,1057) (STALF2! I ) , I=LJ,JJ) 

1057 FORMAT !10H ALPHA 2A, 2X , 6F10. 3) 

WRITE! 6, 1058 ) ( STMF2 { I ) , I = L J , J J ) 

1058 FORMAT ! 10H MF 2A, 2X , 6F 10. 5 } 

WRITE(6,1059) { STVZ2 ( I) , I = L J , J J ) 

1059 FORMAT (10H VZ 2A, 2X , 6F 10. 3 ) 

WRITE! 6,1060) { STTS2! I ) , I=LJ,JJ) 

1060 FORMAT !10H TS 2A , 2X , 6F 10 e 1 ) 

WRITE! 6,1061 ) ! STPS2 « I ) , I =L J , J J 3 

1061 FORMAT (10H PS 2A , 2X , 6F 10. 3 3 
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WRITEC 6 , 1062HSTDEN2J I) , I = LJ» JJi WOUT 158 

1062 FORMAT (10H DENS 2A, 2X , 6 FIG 0 5 > WOUT 159 

WRITE(6, 1063 ) l STM2 U ) , I =L J , J J ) WOUT 160 

1063 FORMAT { 10H M 2A 9 2X 9 6 F 10* 5 ) WOUT 161 

RETURN WOUT 162 

EMQ W°UT 163 
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APPENDIX 3X 


FULIST,DECK,SDD 
SUBROUTINE DIAGT(M) 


REAL MFSTOP 
LOGICAL PREVER 

COMMON /SNTCP/G, AJ ,PRPC, IC ASE, PREVER , MFSTOP, JUMP » LOP IN 9 I SC AS E, 
KN , GAMF « IP, SCRIT,PTRN, I S EC T , KS TG , WTOL , RHOTOL , PRTOL , TRLOOP , LS TG , 
LBRC, IBRC, I CHOKE, I SORR, CHOKE, P TOPS 1(6, 8) ,PTRS2(6,8) ,TROIAG,SC,f 
of i pr.pa<;<;. ipr.i npn „ irr 


$ I BF TC DIGT FULIST, DECK,SDD DIGT 

CDIAGT OIGT 

DIGT 
DIGT 
DIGT 
DIGT 
DIGT 

DIGT 

;,SC,RC, OIGT 
DIGT 
DIGT 

COMMON /SIN IT/HI { 6,8} ,H2(6,8) ,DP0{6,8) , DPI (6,8) ,DP1A(6,8),DP2(6,8)0IGT 
1,DP2A(6,8), CSALF 1(6,8 ),ALF 1(6,8 ) ,CSBET2( 6,8) ,BET2 (6,8) ,RADSD (6,8 J.DIGT 
2RADR 0(6,8) , ANN1 (6,8), ANN 2 £ 6,8) , ANN2A ( 6 , 8 ) , ANN1 A ( 6 , 8 ) ,U 1 A ( 6 , 8 ) , DIGT 

3U2 (6,8) ,ANN0(6,8 ) ,PT0(6,8) »TT0(6,8 ) ,ALPHA0(6,8) ,PTP(6, 8) DIGT 

OIGT 



DIGT 
DIGT 

REAL MR 1A DIGT 

COMMON /SSTA1A/VU1A(6,8) ,WG1A(6,8) ,WGT1A(8) ,VZ1A(6,8), CP1A{8), DIGT 

1PS1A(6,8),RU1A(6,8),R1A(6 S 8) ,BET1A(6,8) ,RI (6,8 > ,TTR1A( 6,8) ,PTR1A(6DIGT 
2,8),MR1A(6,8) DIGT 
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COMMON /SSTA2/V2I 6,8) ,TTR2 (6,8 > ,PTR2 (6,8) , WG2 (6,8), WGT 2(8) ,TA2 f 8 } ,DIGT 037 


1 PS2(6,8),PHI2(6,8) DIGT 038 

C DIGT 039 

REAL MR2 , M 2 ,MF2 DIGT 040 

COMMON /SFL0W2/TS2( 6,8) , CP2( 8) ,R2( 6,8) ,RH0S2 (6,8) , BET2 E (6,8) ,RU2 (60IGT 041 

I ,8) ,VU2(6,8) ,DPDR2(6,8), VZ2(6,8) ,MR2(6,8> ,MF2(6»8) ,M2( 6,8) DIGT 042 

C DIGT 043 

REAL M2A, MF2A DIGT 044 

COMMON /SSTA2A/WG2A(6,8) , WGT 2 A (8) ,VU2A (6,8) ,VZ2A{6,8) ,PS2A(6,8) , DIGT 045 

1ALF2AI 6,8) ,TT2A(6,8),PT2A(6,8) ,TTB AR ( 8 ) , PTBAR ( 8 ) ,STT0{ 8) ,SPT0(8 ) , DIGT 046 

2M2 A ( 6,8) ,MF2A(6» 8) ?CP2A( 8) , V2A { 6 » 8 ) , TS2A(6,8) ,TAS (8) ,PAS (8 ) , GAMS (8DIGT 04 7 

3 } , CP S ( 8 ) , DELHVD ( 6,8) DIGT 048 

C DIGT 049 

WRITE( 6, 1000)NAME, TITLE DIGT 050 


1000 FORMAT £ 1H1, 5X, 10A6/6X, 10A6/20X, 29HNASA TURBINE COMPUTER PROGRAM/ DIGT 051 
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131 X* 10HDI AGNOSTIC) 


IF !H, EG°0) GO TO 10 
GO TO 1 10* 19, 11, 12* 13) » M 
10 DO 14 K=I*KM 

WRITE (6, 1001 IK ,CP0(.K) ,GAMC 1,K) 

1001 FORMAT C 9X, 1HK, I 5 ,9X, 3HCP0, F10. 3 , 9X , 5HGAMMA, F 10* 5 ) 
WRITE! 6, 1002) t PTP U , K ) , I = 1 , 1 SECT ) 

1002 FORMAT i 3X , 6H PTP»6F10o3) 

{PTO! I ,K), 1=1, ISECT) 

PTO,6F10. 3) 

C PSOC I ,K ) , 1=1 , ISECT) 

PSO a 6F10 o 3 5 
( TTO (I ,K ) , 1=1, ISECT ) 


FORMAT (3X,6H 
WRITE! 6,1003) 

1003 FORMAT! 3X,6H 
WRITE! 6, 1004) 

1004 FORMAT ! 3X , 6H 
WRITE! 6? 1005 ) 


1005 

1006 

1007 

1008 

14 


FORMAT! 3X,6H 
WRITE !6, 1006) 
FORMAT! 3X?6H 
WKITE( 69 l 007 ) 
FORMAT (3X,6H 
WRITE! 6, 1008) 


TTO? 6F1C<. 1) 

(TS0U,K) ? 1 = 1, ISECT) 
TS0,6F10. n 
<V0( I,K), 1=1, ISECT) 
V0,6F10o3) 

CALPHAO! I, K) , 1=1, ISECT) 


FORMAT! 3X,6HALPHA0,6F10» 3) 

WRITE! 6,1009) 1 S I i I 9 K ) , I =1 , I SECT ) 


IF (M*EQoO) GO TO 19 
GO TO 18 


19 DO 20 K= 1 ,KN 

1009 FORMAT ! 3 X P 6 H SI, 6 F 10 * 3 ) 

WRITEC 6 , 1010 ) K,CP 1 !K) ,GAM( 2 ,K) 

1010 FORMAT ! 9 X , INK, l 5 , 9 X? 3 HCP 1 ? FlOc 3 , 9 X , 5 HGAMMA 9 F 1 0 c 5 ) 
WRITE! .6, 101 1) IP SI ! I ,K) , 1 = 1 , ISECT) 

1011 FORMAT f 3 X « 6 H PS 1 , 6 F 10 . 3 I 

WRITE! 6 ? 1012 ) {- 0 PDR 1 C i ,K ) , 1 = 1 * ISECT) 

1012 FORMAT ! 3 X , 6 H DPDR 1 , 6 F 1 0 „ 5 ) 

WRITE! 6 , 1013 ) ( TS 1 C I 9 K J , I = 1 , I SECT ) 

1013 FORMAT { JX, 6 H TSI 96 FIO 0 IS 

WRITE! 69 1014 ) ( W G 1 1 I ,K) , 1 = 1 , ISECT ) 

1014 FORMAT C 3 X, 6 H WG 1 , 6 F 10 . 3 ) 

WRITE! 69 1015 ) I VIC I ,K> , 1 = 1 , ISECT) 

1015 FORMAT ( 3 X, 6 H V 1 , 6 F 10 . 3 ) 

WRITE! 6 ? 1016 ) C ALF IE ( I ,K ) , 1 = 1 , ISECT) 

1016 FORMAT ? 3 X, 6 H ALF 1 E, 6 F 10 . 3 ) 

20 WRITE! 6 S 1017 ) ! ALF 1 f I 9 K ) , I = 1 , I SECT ) 

1017 FORMAT f 3 X , 6 H AL F 1 P 6 F 1 0 o 3 ! 

IF (M.EOoO) GO TO 11 

GO TO 18 
11 DO 15 K = 1 9 KN 

WRITE! 6 ? 1018 ) K,CP 1 ACK ) 9 GAM ( 3 , K ) 

1018 FORMAT C9X, 1HK, I 5 , 9X , 4HCP 1 A , F10 o 3 , 8 X, 5HGAMMA , F10 « 5 ) 
WRITE l 6 , 1019) (PTR1AU»K)»I = 1, ISECT) 

1019 FORMAT i 3 X , 6 H PTR 1 A , 6 F 1 0 . 3 J 

WRITE! 6 , 1020 ) CPS 1 AC I,K ) ,1 = 1,1 SECT ) 

1020 FORMAT ! 3X , 6H PS 1A , 6F 10 , 3 ) 

WRITE! 6 , 102 1 ) (TTR 1 ACI ,K) , 1 = 1 , ISECT) 

1021 FORMAT f 3 X 9 6 H TTR 1 A , 6 F 1 0 0 1 ) 

WRITEC 6 , 1022 ) (WG 1 A( I,K) 9 1 = 1 , I SECT) 


DIGT 052 
D l GT 053 
DIGT 054 
DIGT 055 
DIGT 056 
DIGT 057 
DIGT 058 
DIGT 059 
DIGT 060 
DIGT 061 
DIGT 062 
DIGT 063 
DIGT 064 
DIGT 065 
DIGT 066 
DIGT 067 
DIGT 068 
DIGT 069 
DIGT 070 
DIGT 071 
DIGT 072 
CIGT 073 
DIGT 074 
DIGT 075 
DIGT 076 
DIGT 077 
DIGT 078 
DIGT 075 
DIGT 08C 
DIGT 081 
DIGT 082 
DIGT 083 
DIGT 084 
DIGT 085 
DIGT 08 6 
DIGT 087 
DIGT 088 
DIGT 085 
DIGT 09C 
DIGT 091 
DIGT 092 
DIGT 093 
DIGT 094 
DIGT 095 
DIGT 096 
OIGT 097 
DIGT 09S 
DIGT 095 
DIGT IOC 
DIGT 101 
DIGT 102 
DIGT 103 
DIGT 104 
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1022 FORMAT (3X,6H 
WRITE(6, 1023) 

1023 FORMAT !3X,6H 
WR I TE ! 6 , 1024 ) 

1024 FORMAT <3X,6H 
15 WRITE! 6, 1025) 

1025 FORMAT !3X,6H 
IF (M.EQ.O) 


WG1 A* 6F 10 o 3 ) 

{ R 1 A { I,K) , 1 = 1, ISECT) 

R1 A , 6F 1 0 • 3 ) 

(BET1AU ,K ) , 1 = 1, ISECT) 
BET1A»6F10.3) 

(RIl I, K) , 1=1, ISECT) 
RI,6F10«3) 

GO TO 12 


12 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 
16 

1035 

13 


FORMAT (3X,6H 
WR IT£(6,1028) 
FORMAT ( 3 X , 6 H 


GO TO 18 
DO 16 K=1,KN 

WRITE! 6, 1026) K,CP2 ( K ) ,GAM!3,K) 

FORMAT (9X, 1HK, I 5 , 9X , 3HCP 2 , F 10. 3,9X , 5HGAMMA, F 10. 5 > 
WRITE! 6, 1027) (PTR 211, K), 1=1, ISECT) 

PTR2,6F10.3) 

(PS2! I,K) ♦ 1=1, ISECT) 

PS2 , 6F 10 « 3 ) 

WRITE! 6, 1029 ) ! DPDR2 ( I,K ) , 1=1, ISECT) 

FORMAT !3X,6H DPDR2 , 6F 10 . 5 ) 

WRITE! 6, 1030) (TTR2(I,K) ,1 — 1,1 SECT ) 

FORMAT { 3X , 6H TTR2»6F10.1) 

WRITE! 6, 1031) !TS2( I,K) , 1=1, ISECT) 

FORMAT (3X,6H TS2,6F10.1) 

WRITE!6,1032) (WG2 !I,K), 1=1 , ISECT) 

FORMAT !3X,6H WG2,6F10.3) 

WRITE!6,1033) !R2( I,K), 1=1,1 SECT) 

FORMAT !3X,6H R2,6F10.3) 

WRITE! 6, 1034) (8ET2E! I,K), 1=1, ISECT) 

FORMAT !3X,6H BET2 E , 6F 10 . 3 ) 

WRITE! 6,103 5) ! BET2 ! I,K) ,1 = 1,1 SECT ) 

FORMAT !3X,6H 8ET2,6F10.3) 

IF (M.EOoO) GO TO 13 
GO TO 18 
DO 17 K=1,KN 


L = K +1 

WRITE! 6, 1036 )K,CP2A(K) S GAM( 5,K ) 

1036 FORMAT !9X, 1HK , I 5 , 9X , 4HCP2A , F10 » 3 , 8X , 5HGAMMA , F10 . 5 ) 
WRITE! 6, 1037) (PT2A! I,K) ,1=1, ISECT) 

1037 FORMAT !3X,6H PT2A,6F10«3) 

WRITE! 6, 1038) !RS2A! I , K ) , I = I, I SECT ) 

1038 FORMAT !3X,6H PS2A,6F10.3) 

WRITE! 6, 1039) ITT2AU.K) ,1=1, I SECT) 

1039 FORMAT !3X,6H TT2A,6F10.1) 

WRITE (6, 1040) (TS2A ( I ,K ) ,1 = 1, I SECT) 

1040 FORMAT !3X,6H TS2A,6FI0ol) 

WRITE! 6, 1041) !WG2A!I,K) ,1 = 1, 1 SECT) 

1041 FORMAT (3X,6H WG2A,6F10<>3i 

WRITE! 6, 104 2 ) C V2A ( I , K ) , I = 1 , I SEC T ) 

1042 FORMAT !3X,6H V2A,6F10.3) 

WRITE (6, 1043) { ALF2A ! I,K),I=l, ISECT) 

1043 FORMAT !3X,6H ALF2 A , 6F 1 0 . 3 ) 

WRITE 16,1044) !SI! I,K) , 1=1, ISECT) 

1044 FORMAT !3X,6H SI,6F1Q.3) 

WR ITE!6,1045) L, CPS ( K ) ,GAMS !K) 


DIGT 105 
DIGT 106 
DIGT 107 
DIGT 108 
DIGT 109 
DIGT 110 
DIGT 111 
DIGT 112 
DIGT 113 
DIGT 114 
DIGT 115 
DIGT 116 
DIGT 117 
DIGT 118 
DIGT 119 
DIGT 120 
DIGT 121 
DIGT 122 
DIGT 123 
DIGT 124 
DIGT 125 
DIGT 126 
DIGT 127 
DIGT 128 
DIGT 129 
DIGT 130 
DIGT 131 
DIGT 132 
DIGT 133 
DIGT 134 
DIGT 135 
DIGT 136 
DIGT 137 
DIGT 138 
DIGT 139 
DIGT 140 
DIGT 141 
DIGT 142 
DIGT 143 
DIGT 144 
DIGT 145 
DIGT 146 
DIGT 147 
DIGT 148 
DIGT 149 
DIGT 150 
DIGT 151 
DIGT 152 
DIGT 153 
DIGT 154 
DIGT 155 
DIGT 156 
DIGT 157 
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104 5 FORMAT C9X* 1HL* I 5 *9X» 3HCPS, FIO. 3, 9X , 5HGAMMA, F 10. 5 ) 
WRITE! 6, 1046) t PTP U *L) * 1 = 1 » I SEC T ) 

1046 FORMAT (3X 9 6H PTP,6F10.3> 

WRITE! 6, 1047) 1 P TO C 1,11* 1 = 1 » I SECT) 

1047 FORMAT (3X,6H PT0 f 6F10o3! 

17 WRITE! 6, 1048) ( TTO ( I , L ) , I = 1 , I SECT ) 

1048 FORMAT (3X 5 6H TT0»6F10ol) 

18 CONTINUE 
RETURN 
END 


DIGT 158 
OIGT 159 
DIGT 160 
DIGT 161 
DIGT 162 
DIGT 163 
DIGT 164 
DIGT 165 
DIGT 166 
DIGT 167 
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APPENDIX 3Y 


$ I BFT C PHIM FULIST, DECK, SOD 

CPHIM 

SUBROUTINE PH I M ( EX I , ETA, TR , PR ) 

A = EXI-.5 

B = - ( EX I + ( l.-ETA) /2. ) 

C = ETA/2. 

X = { -B -SQRT { B**2 -4. *A*C ) ) / < 2 . *A ) 
TR = ETA/CETA-X) 

PR = TR**EX 1 

RETURN 

END 


PHIM OOO 
PHIM 001 
PHIM 002 
PHIM 003 
PHIM 004 
PHIM 005 
PHIM 006 
PHIM 007 
PHIM 008 
PHIM 009 
PHIM 010 
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APPENDIX 4 


TURBINE COMPUTER PROGRAM 
STANDARD OPTION 
INPUT SHEET 


START ALL INPUT CARDS IN COLUMN 2 


NAME 1 

NASA. 

TITLE 1 

1.00 

SDATAIN 

STAGE = 

STGCH= 

1 . 0 

TT I N = 

700 

PTPS = 

1.1 

STG = 

2 

RG = 

53.35 

RPM = 

5041 

PCNH = 

.2 



STA. 

0 

GAM 6“' 

1 

.4 

D R - 

19. 

11 

DT = 

28. 

0 

RWG = 

1 

.0 



ROOT 

SDI A = 

0 . 

SDEA- 


S R E C = 

1.0 

SET A = 

.97 

SCF = 

.977 

SPA = 

22.140 

SESTH= 

1.0 



ROOT 

R D I A = 

50.6 

RDEA = 


RREC = 

1.0 

RET A^ 

.919 

RCF - 

.95 

RPA = 

33.408 

RT F = 

1.0 

RERTH= 

1.01 


TWO STAGE TURBINE 

5041 -8 DEG. LOSS PROFILE .98 .946, .977 

1 . 


9 PTI N= 

17.14 

9 W A I R = 

0 9FAIR= 

0 

9DELC= 

.1 

9DELL= 

.1 ,DELA= 

. 1 

9SECT= 

5 

» EXPN = 

3 9EXPP= 

3 

9 PAF = 

0 

9 SLI 

0 9AACS= 

1.0 

,VCTD= 

1 

, END JOB = 

0 9 ENDSTG 

= 0 


INLET 

RADIAL PROF U 

„F 


9 

.2 ? 

.2 9 

.2 ’ 

.2 


AXIAL STATIONS 



STA. 

1 STA 

* 1 A STA. 2 

STA. 2A 

^ 

9 

9 

" 1 9 

19.11 * 

18.969 » 

18.406 ♦ 

18.265 

9 

28.0 9 

28.141 * 

28.704 * 

28.845 




9 — — 

V 


STATOR RADIAL DISTRIBUTIONS 

PITCH TIP (FOR THREE SECTORS) 




9 


— T~ 

9 


— 1 — 
9 


— 9 — 
9 

7 

4 

► »v 

CO 

.98 

9 

9 

.98 

9 

/ 

.97 

> 

r — 

26.035 9 

30.135 

9 

9 

34.194 

9 

A 

38.499 
^ 


ROTOR RADIAL DISTRIBUTIONS 

PITCH TIP (FOR THREE SECTORS) 


44.9 9 


38.1 


30.2 


20.9 




.946 


36.352 » 

— — r 


.946 


38.976 


946 


41.280 


.919 




43.008 


ENDJOB= 0 » 

ENDSTG= 0 $ 


END JOB= 1 • 0 IF LAST CASE 
ENDSTG= 1 • 0 IF LAST STAGE 
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TURB £M«B u ^?iBiP RAM 

INPUT SHEET 


START ALL INPUT CARDS IN COLUMN 2 


NAME 1 
TITLE 1 

SDATAIN STAGE 
STGCH= 

T T I N~ 

PTPS = 

STG = 

RG = 

RPM = 

* 2 9 

9 

» PT I N = 
*DELC= 
9 SEC T = 
9 P AF = 
*VCTD= 


*W A I R = 
»DELL= 

♦ EXPN = 

* SL I 

»E ND JOB- 

» FA I R = 
9 DELA= 

» EXPP = 

9 AACS= 
»ENDSTG= 

PCNH = 

9 

I NLET 

* 

RADIAL PROFILE 

* 

* 

STA. 0 

STA. 1 

AXIAL STATIONS 
STA * 1 A STA. 2 

STA. 2 A 


» 


GAMG 3 
DR = 

DT = 

1.4 

18.265 

28.845 

9 

9 

9 

17.814 

29.296 

n 

* 

9 

9 

17.673 9 

29.437 * 

17.110 

30.00 

— 9 

9 

9 

> » 

17.110 9 

30.00 9 

v . 

RWG- 

i.O 

9 


9 

9 " 


y 

A » 




STATOR 

RADIAL DISTRIBUTIONS 




ROOT 


PITCH 


TIP 

(FOR THREE 

SECTORS) 

S D I A = 

25.0 

9 

22.4 

9 

20.2 , 

18.3 

9 

16.6 9 

SDE A - 

1.0 

9 


9 

9 


9 

9 

\ , 

SREC = 

9 


9 

" 9 


' 'f 


SETA 3 

.97 

9 

.98 

9 

.98 » 

.98 


.97 9 

SCF = . 

. 925 

9 


9 

9 


* 

/ * 

SPA- 

30.42 

9 

! 36.855 

9 

43.485 * 

50.765 

9 

58.240 * 

SESTH* 

1.01 

9 










ROTOR 

RADIAL DISTRIBUTIONS 




ROOT 


PITCH 


TIP 

(FOR THREE 

SECTORS) 

RD I A- 

36.6 

9 

26.9 

» 

16.1 9 

4.6 

9 

-6.7 * 

RDE A = 


9 


9 

9 


9 


R R E C = 

1.0 

9 


~9 

"I ^ 


9 


RET A = 

.919 

9 

.946 

9 

. 946 » 

.946 

9 

.919 9 

^ 9 

RCF = 

. 90 

9 


T 

9 


" f 


RPA = 

4 3v 3 5 

9 

48.15 

9 

52.35 9 

55.75 

9 

58.55 9 

RTF = 

1 , 0 

9 



i 


.„-.y 

/ 9 

R ERTH- 

1.01 

9 







ENDJOB 

- 0 

9 

ENDJOB 

=1.0 IF LAST 

CASE 



ENDSTG 

= 1 

$ 

ENDSTG 

=1.0 IF LAST 

STAGE 
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APPENDIX 5 



TURBINE COMPUTER PROGRAM 
NAME- NASA TWO STAGE TURBINE 

TITLE- 1.00 5041 -8 DEG. LOSS PROFILE .98 .946* .977 *90» 


♦ DAT AIN 

TTIN= 700.000 PT I N= 17.140 

p T P S = 1.100 DELC- 0.100 

STG= 2.000 SEC T= 5.000 

RG= 5 3. 350 P A F = 0. 

RP^ 5041.000 VCTC- 1. 

ENDSTG= 0. ENDJ 0B= -0.000 

INLET RADIAL 

PCNH= 0.200 0.200 0.200 


W A I R = 0. F A I R= 0. 

DELL = 0.100 DEL A= 0. LOO 

EXPN= 3.000 EXPP= 3.000 

SL I - 0. A AC S= 1.000 

EXPRE= 0. 

PROFILES 

0.200 0.200 - 0.000 
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STANDARD OPTION 


ST ADC - 

1 


AXIAL 

STAT IONS 



STA. 0 

STA. 1 

STA. 1 A 

STA. 2 

STA. 2 A 


G AMG = 

I. 400 

1.4 00 

1.4 00 

1 .400 

1.400 

0* 

DR = 

19. no 

1 9. 1 10 

18.969 

18.406 

18.765 

0. 

ni = 

28. OOO 

28.000 

28.141 

28.704 

28.845 

0. 

R W S = 

1.000 

1.000 

1.000 

1.000 

1.000 

0 . 



STATOR 

RADIAL DISTRIBUTIONS 




ROOT 

PITCH 

TIP 

(FOR THREE SECTORS) 


SOI A = 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

SDEA = 

0 . 

0 . 

0 . 

0 . 

0 . 

0 . 

SREC = 

1.000 

1.000 

1.000 

1.000 

1.000 

0 . 

SET A = 

0. 970 

0.9 80 

0.980 

0.980 

0.970 

0 . 

SC F = 

0.977 

0.977 

0.977 

0.977 

0.977 

0 . 

S P A = 

22. 140 

26.035 

30.135 

34.194 

38.499 

0 . 

SE STH = 

1.000 








ROTOR 

RADIAL DISTRIBUTIONS 



R D I A = 

50. 600 

44.900 

38.100 

30 .200 

20.900 

0 . 

R DE A = 

0. 

0. 

0. 

0 . 

0. 

0. 

RRFC = 

1.000 

1.000 

1.000 

1 .000 

1.000 

0 . 

RET A- 

0.919 

0.946 

0.946 

0.946 

0.919 

0 .: 

RCF = 

0.950 

0. 950 

0.950 

0.950 

0.950 

0 . 

R TF = 

1.000 

1. 000 

1.0 00 

1 .000 

1.000 

0 . 

R P A = 

33.408 

36.352 

38.9 76 

41.280 

43.008 

0 . 

RE RTH = 

1 .010 







STANDARD OPTION 



STAGED 

2 


AXIAL 

STATIONS 




STA. 0 

STA. 1 

STA. 1 A 

STA. 2 

STA. 2A 


G AMG = 

1.400 

1.400 

1.4 00 

1 .400 

1.400 

0 . 

DR = 

18. 265 

17.8 14 

17.673 

17.110 

17.110 

0 * 

DT = 

28.845 

29.296 

29.437 

30.000 

30.000 

0 . 

RWG- 

1.000 

1.000 

1.000 

1.000 

1.000 

0 . 



STATOR 

RADIAL DISTRIBUTIONS 




ROOT 

PI TCH 

TIP 

(FOR THREE SECTORS) 


SD I A = 

25.000 

72.400 

20. 200 

18.300 

16.600 

0 . 

SDE A = 

0 . 

0 . 

0 . 

0 . 

0. 

0. 

SREC = 

1.000 

1.0 00 

1.000 

1.000 

1.000 

0 . 

S E T A = 

0. 970 

0.980 

0.980 

0.980 

0.970 

0 . 

SC F = 

0.925 

0.925 

0.925 

0.925 

0.925 

0 . 

SP A = 

30.420 

36.855 

43.485 

50.765 

58.240 

0 . 

SE STH = 

1.010 








ROTOR 

RADIAL DISTRIBUTIONS 



R D I A = 

36. 600 

26.900 

16.100 

4.600 

-6.700 

0 . 

RDFA = 

0 . 

0 . 

0 . 

0 . 

0 . 

Oi 

RRFC^ 

1 . 000 

1.000 

1.000 

1 .000 

1.000 

0 * 

RE T A = 

0.919 

0.946 

0.9 46 

0.946 

0.919 

0 . 

RC F = 

0. 900 

0.900 

0.9 00 

0.900 

0.900 

0 . 

rtf = 

1. 000 

1.000 

1.000 

1.000 

1.000 

0 . 

RPA = 

43. 350 

48.150 

52.350 

55 .750 

58.550 

0 . 

RERTH= 

1.010 
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NASA TURBINE COMPUTER PROGRAM 


NAME- 

NASA tWO STAGE TURBINE 


TITLE- 

1.00 5041 

-8 DEG. LOSS PROFILE 

.98 



CASE 9. 0 




STAGE PERFORMANCE 



STAGE l 

STAGE 2 STAGE 

3 

TT 0 

700.0 

608.5 


PT 0 

17.140 

10.120 


WG 0 

43.618 

43.618 


DEL H 

21.960 

11.360 


WRT/P 

67.330 

106.318 


DH/T 

0.03137 

0.01867 


N/RT 

190.532 

204.358 


ETA TT 

0.93545 

0.93099 


ETA TS 

0.82313 

0.74145 


ETA AT 

0.92064 

0.92442 


PT0/PS1 

1.600 

1.328 


PT0/PT2 

1.694 

1.357 


PT0/PS2 

1.840 

1.474 


PTR1A/PS2 

1.340 

..216 


TT2/TT0 

0.86926 

0.92220 


TTR1/TT0 

0.91710 

0.94789 


PS 1 

10.712 

7.627 


TTR 1 

642,0 

576.8 


PT/R 1 

12.478 

8. 347 


PS 2 

9.314 

6.865 


TT 2 

608.5 

561.1 


PT 2 

10.120 

7.457 


UP/VI 

0.44821 

0.59140 


UR/VI 

0.35559 

0.43665 


PSI P 

1.02409 

0.52977 


PSI R 

1.62705 

0.97180 


RX P 

0.21419 

0.26033 


RX R 

-0.08794 

-0.07414 


ALPHA 0 

• 

20.327 


I STATOR 

0. 

0.127 


BETA 1A 

46.326 

15.372 


I ROTOR 

8.226 

-0.728 


ALPHA 2 

20732 7 

-9.327 


DBETA R 

116.221 

86. 347 


M 1 

0.83798 

0.64248 


Ml RT 

1.01118 

0.78437 


MR 1A 

0.47C73 

0.35231 


MR 1 A RT 

0.69178 

0.50428 


MR 2 

0.64049 

0.52057 


MR2 TIP 

0.69786 

C. 61740 


E/TH CR 

16.272 

9.684 


N/RTH CR 

4339.3 

4654 • 2 


WRTHCRE/D 

43.4 

6 8.6 





UVR ALL PERFORMANCE 

PSI P 

0.77693 

PSI R 

1.32293 

WRT/P 

67.32999 

N/RT 

190.53189 

PT0/PT2 

2.29861 

PT0/PS2 

2.49689 

ETA TT 

0.93726 

ETA TS 

0.86238 

WNE/60D 

3142.12964 

N/RTH CR 

4339.32922 


946, .977 .90, 


STAGE 4 


DEL H 
DELH/T 
PT/PAT2 
ETA TAT 
E/TH CR 


33 

0 

2 

0 

24 


31947 
04760 
30771 
93500 
68 936 
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NASA TURBINE COMPUTER PROGRAM 
NAME- NASA TWO STAGE TURBINE 
TITLE” 1.00 5041 -8 DEG. LOSS PROFILE .98 

CASE 9. 0 

INTER-STAGE PERFORMANCE 


.946, .977 .90, 


STA 

0 

STATOR INLET 


STAGE 1. 



DIAM 

0 

19.999 

21.777 

23.555 

25.333 

27.111 

TT 

0“ 

700.0 

700.0 

700.0 

700.0 

700.6 

PT 

0 

17.140 

17.140 

17. 140 

17.140 

17.140 

ALPHA 

0 

0. 

0. 

0. 

0. 

0. 

I STATOR 

0. 

0. 

0. 

0. 

0. 

V 

0 

299.462 

299.462 

299.462 

299.462 

299.462 

VU 

0 

0. 

0. 

0. 

0. 

0. 

VZ 

0 

'299.462 

299.462 

'299. 462 

299.462 

299.462 

TS 

0 

692.5 

692.5 

692.5 

692.5 

692.5 

PS 

0 

16.509 

16.509 

16.509 

16.509 

16.509 

DENS 

0 

0.06434 

0.06434 

0.06434 

0.06434 

0.06434 

M 

0 

0.232 

0.232 

0.232 

0.232 

0.232 


T" 

S T AT OR TxTt 





DIAM 

l 

19.999 

21.777 

23.555 

25.333 

27.111 

ALPHA 

l 

69.539 

67.940 

66. 303 

64.911 

63.359 

DEL 

A 

69.539 

67.940 

66.303 

64.911 

63.359 

V 

1 

1147.973 

1080.203 

1017.726 

954. 1^7 

895.216 

VU 

1 

1075.550 

1001.125 

931. 914 

864.122 

800.. 175 

VZ 

1 

401.292 

405.692 

409.026 

404.586 

401.412 

TS 

1 

590.3 

602.9 

613.8 

624.2 

633.3 

PS 

1 

9.252 

10.046 

10.712 

11.379 

11.936 

DENS 

1 

0.04230 

0.04498 

9.04711 

0.04920 

0.05C87 

M 

1 

0.96384 

0. 89743 

0.83798 

0.77904 

0.72567 

ZWI INC 

-0.655 

-0.696 

-0.736 

-0.768 

-0.802 

CP 

S 

0 * 932 

0.923 

0.913 

0.901 

0.888 
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NASA TURBINE COMPUTER PROGRAM 
NAME- NASA TWO STAGE TURBINE 

TITLE- 1.00 50 A 1 -8 DEG. LOSS PROFILE .98 .946, .977 .90* 

CASE 9. 0 

INTER-STAGE PERFORMANCE 


STA 

1A 

ROTOR INLET 


STAGE 1. 



01 AM 

1A 

19.886 

21.721 

23.555 

25.389 

27.224 

PTR 

1A 

11.994 

12.251 

12.478 

12.778 

13.083 

TTR 

1A 

637.2 

639.2 

642.0 

645.8 

650.4 

BETA 

1A 

58.689 

53.184 

46. 326 

37.951 

27.199 

I ROTOR 

8.090 

8.285 

8.226 

7.732 

6.300 

R 

1A 

754.063 

656.998 

572. 134 

493.9.2 

433.305 

RU 

1A 

644 • 244 

525.969 

413.810 

303. 75C 

198.058 

MR 

1A 

0.63336 

0. 54567 

0.47073 

0 • 402 66 

0.35083 

U 

1A 

437.407 

477.755 

518.104 

558.452 

598.801 

STA 

2 

ROTOR EXIT 





DIAM 

2 

19.436 

21.495 

23.555 

25.615 

27.674 

BETA 

2 

57.531 

58.629 

59.379 

60.258 

60.964 

DBETA 

116.221 

111.813 

105.705 

98.210 

88.163 

R 

2 

700.037 

738.945 

764. 768 

797.558 

818.483 

RU 

2 

590.611 

630.919 

658. 125 

692.497 

715.609 

MR 

2 

0.58510 

0. 61834 

0.64049 

0.66793 

0.68411 

U 

2 

427.500 

472.802 

518.104 

563.406 

608.708 


RX 

-0.00404 

0. i 1 69 8 

0.21419 

0.30756 

0.38295 

DELH 

21.682 

22.139 

22.182 

22.137 

21.658 

PSI 

P 

2.90232 

2.45375 

2.06896 

1.76143 

1.48743 

ETA 

TT 

0.91417 

0. 94185 

0.94519 

0.94753 

0.92554 

ETA 

TS 

G. 80596 

0. 82631 

0.83128 

0.83237 

0.81640 

ETA 

AT 

C. 89418 

0.92234 

0.92982 

0.93439 

0.91678 

ZWI INC 

-1.853 

-1.613 

-i • 420 

-1.245 

-1.091 

CPR 

-0.160 

0.2C9 

0.440 

0.616 

0.720 

PT 

2 A 

10.061 

10.112 

10.122 

10.148 

10.139 

TT 

2 A 

609.6 

607.7 

607.6 

607.7 

609.7 

V 

2 A 

402.129 

406.587 

403.081 

404.008 

398.167 

vu 

2 A 

164.063 

158.533 

140.021 

128.808 

106.467 

ALPHA 

2 A 

24.078 

22. 949 

20. 327 

18.592 

15.509 

MF 

2 A 

0.30673 

0. 31338 

0.31636 

0.32046 

0.32044 

VZ 

2 A 

367.139 

374.407 

377.979 

382.925 

383.669 

TS 

2 A 

596.2 

594.0 

594.0 

594.2 

596.5 

PS 

2 A 

9. 304 

9.334 

9.355 

9.376 

9.391 

DENS 

2 A 

0.04213 

0.04241 

0.04251 

0. 0425 9 

0.04249 

M 

2A 

0.33596 

0.34032 

0.33737 

0.33811 

0. 33255 
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NASA T JRB I Ni c COMPUTER PROGRAM 
NAME” NASA. T RU STAGE TURBINE 

TITLE- 1.00 30 A I -b DEG. LOSS PROFILE .98 .946, .977 .90, 

CASE 9. 0 

INTER-STAGE PERFORMANCE 


STA 

0 

STATOR INLET 


STAGE 2. 



DI AM 

0 

19.323 

21.439 

23.555 

25.671 

27. 787 

TT 

0 

6)6.5 

60 8.5 

608.5 

6C8.5 

608.5 

PT 

0 

10.120 

10. 120 

10. 120 

10.120 

10.120 

ALPHA 

0 

24.078 

22.949 

20. 327 

18.592 

15.509 

I STATOR 

-0.921 

0.54 9 

0. 127 

0.292 

-1.090 

V 

-V 

4C2. 129 

406.587 

403.081 

404.008 

398.167 

VU 

0 

164.063 

158.533 

140.021 

128.808 

106.467 

VZ 

0 

367.139 

374.407 

377.979 

382.925 

383.669 

TS 

0 

596.2 

594.0 

594.0 

594.2 

596.5 

PS 

r 

9.304 

9.334 

9.355 

9.376 

9.39L 

DENS 

c 

0.04213 

0.04241 

0.04251 

0.04259 

0.04249 

M 

0 

0.336 

0.340 

0. 337 

C.3 38 

0.333 

STA 

]_ 

STATOR EXIT 





DIAM 

1 

13.962 

21.259 

23. 555 

25.851 

28.148 

ALPHA 

1 

61*651 

59.301 

57. 068 

54.670 

52.234 

DEL 

A 

85.729 

82.250 

77. 395 

7 3 . 2 bZ 

67.743 

V 

i 

852.183 

797.562 

746.698 

695.931 

647. 721 

VU 

1 

749.978 

635.793 

626.716 

567. 7o7 

512.036 

VZ 

1 

404.658 

407.178 

405.938 

402.443 

396.689 

TS 

1 

548.0 

o 5 5 • 5 

562.1 

568.2 

5 7 3.6 

PS 

1 

6.934 

7.324 

7.627 

7.929 

8.162 

DENS 

1 

0. 0341 5 

0. 03558 

0.03662 

0.03767 

0.03841 

M 

1 

0.74258 

C. 69027 

-'•64248 

0.59558 

0.55171 

ZWI INC 

-1.037 

-1.099 

-1. 132 

-1.169 

-1.176 

CP 

s 

0.777 

0.740 

0.709 

0.663 

0.622 
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NASA TURBINE COMPUTER PROGRAM 
NAME- NASA TWO STAGE TURBINE 

TITLE- 1.00 5041 -8 DEG. LOSS PROFILE .98 .946, .977 .90, 

CASE 9. 0 

INTER-STAGE PERFORMANCE 


STA 

1A 

ROTOR INLET 


STAGE 2. 



DI AM 

1A 

18.349 

21.202 

23.555 

25.908 

28.261 

PTR 

1A 

7.983 

8. 170 

8.347 

8.606 

8.869 

TTR 

1A 

570.7 

573.2 

576.8 

581.8 

587.9 

BETA 

1A 

40.543 

29.084 

15.372 

-0.488 

-16.202 

I ROTOR 

3.944 

2.184 

-0.728 

-5.088 

-9.502 

R 

1A 

522.850 

455. 198 

409.722 

390.560 

4C0.023 

RU 

1A 

339.865 

221.264 

108.612 

-3.324 

-111.614 

MR 

1A 

0.45563 

0.39382 

0.35231 

0.33398 

0.34043 

U 

1A 

414.602 

466.353 

518.104 

569.855 

621.606 

STA 

2 

ROTUR EXIT 





0 I AM 

2 

18.399 

20.977 

23.555 

26.133 

28.711 

BETA 

2 

45.803 

47.980 

49.600 

51.528 

52.888 

DBETA 

86.347 

77.064 

64.972 

51.040 

36.686 

R 

2 

509.758 

559. 144 

596.911 

646. 636> 

683.989 

RU 

2 

365.472 

415.395 

454.567 

506.260 

545.449 

MR 

2 

0.44404 

0.48778 

0.52057 

0.56377 

0.59497 

U 

2 

404,695 

461.399 

518. 104 

574.808 

631.513 


RX 

0.02621 

0. 16021 

0.26033 

0.35784 

0.43101 

DELH 

11.860 

11.960 

11.654 

11.321 

10.491 

PSI 

P 

1.76916 

1.39156 

1.08700 

0.86528 

0.669G4 

ETA 

TT 

0.92504 

0. 95555 

0.94969 

0.94336 

0.89093 

ETA 

TS 

0.77236 

0.77943 

0.76036 

0.73946 

0.68609 

ETA 

AT 

0.92285 

0.95234 

0.94352 

0.93608 

0.87998 

ZWI INC 

-1.831 

-1.493 

-1.218 

-0.968 

-0.751 

CPR 

-0.052 

0.337 

0. 529 

0.635 

0.658 

PT 

2 A 

7.336 

7.395 

7.443 

7.496 

7.540 

TT 

2 A 

559.1 

558.6 

559.9 

561.3 

564.8 

V 

2 A 

357.521 

377. 102 

392.056 

408.091 

421.585 

VU 

2 A 

-39.223 

-46.005 

-63.537 

-68.548 

-86.064 

ALPHA 

2 A 

-6.298 

-7.007 

-9.327 

-9.670 

-11.779 

MF 

2 A 

0.30955 

0. 32651 

0.33740 

0.35074 

0.35899 

VZ 

2 A 

355.363 

374.286 

386.874 

402.292 

412.707 

TS 

2 A 

548.4 

546.8 

547.1 

547.4 

550.0 

PS 

2 A 

6.859 

6.861 

6. 865 

6.868 

6.871 

DENS 

2 A 

0.03376 

0.03387 

0.03387 

0.03386 

0.03372 

M 

2 A 

0.31143 

0. 32897 

0.34192 

0. 35580 

0.36672 
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APPENDIX 6 


NAMF- NASA TWO STAGE TURBINE " 

TITLE- 1.00 5041 8 DEG. LOSS PROFILE .98 .946, .977 .90, 3.0 3.0, 

S DA TAIN STGCH = I • 0 > P1PS-1.1, SIAGE=i.O, 

P T I N = 17.14, 

I N = 700., 

t R= 0. , 

FA I R = 0., 1 

AACS= 1., 

STG= 2., 

S ECT.= 5., 

OELC= • 1 , 

D E L L - i 1 , 

DELA=.l * 

EXPN= 3.0, 

FXPP= 3.0, 

RG= 53.35, 

RPM= 5041., 

PCNH- .2, .2, .2, .2, .2, 

GAMG= 1 .4, 1 .4 ,1 .4, 1.4 , 1.4, “ 

DR= 19.110,19.110,18.969,18.406,18.265, 

DT = 28.0,28.0,28.141 ,28.704,28.8 45, 

' R W G = 1.>1.»1.»1.»1.» 

S D I A — 0 . , 0. , 0 . , 0 . , 0 . , 

SREC- l.,l.,l.,l*,l»> 

SETA = .97, .98, .98, .98, .9 ( , 

SCF = .977, .977, .977, .977, .977, 

S D E A ~ 0 . , 

S PA = 22.140,26.035,30.135,34.194,38.4 99 , 

SESTH= 1., 

RDI A= 50.6,44.9,38.1,30.2,20.9, 

R REC = l.,l.,l.,l.,l», 

RET A= .919, .946, .946, .946, .919, 

RCF= .95, '.05 , .95 , .95 , .95 , 1 

R TF = l.,l. ,1. ,1. ,1. » 

RDEA= 0., 

RPA= 33. 408,36. 3 52, 38. 976, 41. 280 , 43. 0 08 , 

RERTH= 1.01, — — 

ENDSTG= 0.$ 

SDATA I N STAG r =2.C, 

GAMG= 1.4, 1.4, 1.4, 1.4, 1.4, 



RERTH= 1.01, 










■NAWF= — NASA TWCT STAGE IURBITTE ; " 

TITLE- 0.60 3025 8 DEG. LOSS PROFILE .98 .946, .977 

5DATA4.N"'"' STGCH=U.O* PIPS=i.l* S I AuE= 1.0* 7 

RPM-g 3025 » = •' \ 

ENDSTG= O.S ~ ~ 

SPAT AIN STAGE=2 . 0 » „ 

ENDST G = 1 • $ 

NAME- NASA TWO STAGE TURBINE 

T ITLE- U.7U 352V y 'UEG. lUSS "PROF I LE T7B .946 * • 97 7 

SDATAIN STGCH=0.0* PTPS=1.1* STAGE=1.0* 

RPM = 3529, 1 ' 

ENDSTGg O.S 

SDATAIN ST AGE =2 • 0 * 

END5TG=X . $ 

NAME- NASA TWO STAGE TURBINE 
TITLE- 0.80 4033 8 DEG. LOSS PROFILE .98 .946 » .977 

SDATAIN STGCH = 0 • 0 * PTPS=1*1> STAGE=1.0* 

RPM-4033. > 

ENDSTG= 0.$ " : ' 

SDATAIN STAGE =2 • 0 » 

ENDSTG=1 . S 

NAME- NASA TWO STAGE TURB-INE 

TlfE ' E ^ 0.90 4537 8 DEG. LOSS PROFILE .98 .946 , .977 

SDATAIN STGCH=0.0» PTPS=1*1> STAGE=1.0* 
RPM=4b 3 7 • , 


.90* 3.0 3. 0 * 


r9try Tr(j~$TXr T 


.90* 3.0 3.0* 


. 90 * 3.0 3.0 * 


ENDSTG= O.S 

SDAtATN — STAGE =2 •' D~> ~ 

ENDSTG=1.$ 

NAME- — NASA TWO 'STAGE TURBINE 
TITLE- 1.10 5545 8 DEG. LOSS PROFILE .98 .946* .977 

SDATAIN STGCH = 0.0* P!PS=1.1» ST AGE = 1 .OT 

RPM=5545.* 


•90* 3.0 3.0* 


ENDSTG- O.S " 

SDATAIN ST AGE =2 /O * _ 

ENDsTG=l . S 

NAME- NASA TWO STAGE TURBINE _ _ . ^ _ 

TITLE- r.20 6049 8 DEG. LOSS PROFILE T9B . 946 * .977 . 90 * 3.0 3.0* 

SDATAIN STGCH=0.0> PTPS=1.1» STAGE=l.p* 

RPM = bU4'9"."* ' 7 


ENDSTG= O.S 
SDATAIN ST Abb =2 • 0 * 
ENDSTG=1 .$ 


NASA-Langley, 1967 E-3734 
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